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PREFACE 


This report is one of four in a sequence discribing and evaluating 
the modeling of the total storm rainfall due to stationary events. These 
reports are: 


Report No. 305 "Spatial Poisson Models of Stationary Storm Rainfall: 
Theoretical Development" 

by I. Rodriguez-Iturbe, Q. Wang, P. S. Eagleson and 
B. L. Jacobs. 


Report No. 306 


[ Report No. 307 

(Vols. 1 and 2) 

! 

! 

Report No. 308 


"Spatial Analysis of Storm Depths from an Arizona 
Raingage Network" 

by N. M. Fennessey, P. S. Eagleson, Q. Wang and 
I. Rodriguez-Iturbe. 

"Spatial Characteristics of Observed Precipitation 
Fields: A Catalog of Summer Storms in Arizona" 

by N. M. Fennessey, P. S. Eagleson, Q. Wang and 
I. Rodriguez-Iturbe. 

"Spatial Poisson Models of Stationary Storm Rainfall: 
Parameterization, Evaluation and Numerical Simulation" 
by N. M. Fennessey. 0. Wang, P. S. Eagleson and 
I. Rodriguez-Iturbe. 


They are all available from 
Director 

Ralph M. Parsons Laboratory 
Room 48-311 

Massachusetts Institute of Technology 
Cambridge, MA 02139 


The raw data were provided by the Agricultural Research Service 
(U.S. Department of Agriculture), and are available from their data center 
in Beltsville, Maryland. 

Data tables for the 428 identified storms are available on computer 
tape from the above MIT address, along with a computer program for 
retrieving the data for a particular storm. 
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ABSTRACT 


Eight years of summer rainstorm observations are analyzed by a dense 
network of 93 raingages operated by the U. S. Department of Agriculture, 
Agricultural Research Service, in the 150 km Walnut Gulch experimental 
catchment near Tucson, Arizona. Storms are defined by the total depths 
collected at each raingage during the noon-to-noon period for which there 
was depth recorded at any of the gages. For each of the resulting 428 
storm days, the 93 gage depths are interpolated onto a dense grid and the 
resulting random field analyzed to obtain moments, isohyetal plots, 
spatial correlation function, variance function, and the spatial 
distribution of storm depth. 


ACKNOWLEDGMENTS 


This study was supported (serially) by the National Aeronautics and 
Space Administration under Grant No. NAG 5-388 and by the National 
Science Foundation under Grant No. ATM-8420781. 

The research was performed by Mr. Neil M. Fennessey, Research 
Assistant in Civil Engineering, and this document is a part of his thesis 
submitted to the Massachusetts Institute of Technology in partial 
fulfillment of the requirements for the degree of Master of Science in 
Civil Engineering. The work was supervised by Dr. Peter S. Eagleson, 
Edmund K. Turner Professor of Civil Engineering. Mr. Wang Qinliang, 
Visiting Engineer, provided continuing assistance while on leave from the 
Yangtze Valley Planning Office, Ministry of Water Resources and Electric 
Power, People’s Republic of China. Dr. Ignacio Rodriguez-Iturbe , 

Graduate Program in Hydrology and Water Resources, Universidad Simon 
Bolivar, Caracas, Venezuela, provided guidance on a consulting basis. 

Special thanks are extended to Dr. David Woolhiser and to Ms. Fatima 
Lopez of the U.S.D.A. Southwest Rangeland Watershed Research Center in 
Tucson, Arizona for generously providing the data used in this study. 


TABLE OF CONTENTS 


TITLE PAGE ± 

PREFACE ijL 

ABSTRACT # i±i 

ACKNOWLEDGMENTS iv 

TABLE OF CONTENTS v 

LIST OF FIGURES viii 

LIST OF TABLES ix 

LIST OF NOTATION x 

CHAPTER 1 Introduction 

1*1 Background i 

1«2 Goals and Objectives .... 2 

CHAPTER 2 General Characteristics of Air=Mass Thunderstorms 

2*1 Air-Mass Thunderstorms 3 

2*2 Storm Movement 4 

CHAPTER 3 The Walnut Gulch Experimental Watershed 

3*1 Selection of the Data Network 5 

3.2 Geographical Characteristics of the Walnut Gulch 

Watershed 6 

3.3 Summertime Rainstorm Characteristics 6 

3.4 The Walnut Gulch Raingage Network 8 

CHAPTER 4 Preliminary Data Analysis 

4*1 Preliminary Analysis of Longterm 

Raingage Statistics 9 

4.2 Selection of the Summer Rainy Season 9 

4.3 Independent Rainstorm Events and 

the Storm Day Concept 14 

CHAPTER 3 Data Reduction and Reformulation 

5.1 Organization of the Raw Data 18 

5.2 Conceptual Reorganization of the Raw Data 19 

5.3 Basin-wide Inter-gage Comparison and Data Creation .. 21 

CHAPTER 6 Interpolation and Filtering of the Storm Day Random Field 

6.1 The Numerical Watershed Boundary 24 

6.2 The Bivariate Surface Fitting Interpolator 26 

6.3 Additional Post Surface Interpolation Filters 29 


v 


CHAPTER 7 Storm Day Observations: Sampling from the Coarse Grid 

Mesh Random Field 

7.1 Spatial Homogeneity and Isotropy 

of the Random Field 30 

7.2 Sampling for the Moments of Total 

Storm Day Depth 37 

7.3 Sampling for the Spatial Correlation 39 

7.3.1 Correlation of Observed Station Depths 42 

7.3.2 Correlation of the Interpolated Data 43 

7.3.3 Sampling the Walnut Gulch Random Field 

for Correlation ^ 8 

7.3.4 Node by Node Technique 50 

7.3.5 The Radial Sector Technique 50 

7.3.6 The Radial Sweep Technique 51 

7.3.7 The Bidirectional Technique 52 

7.4 Sampling for the Variance Function 54 

7.4.1 Introduction 54 

7.4.2 Sampling the Random Field 

for the Variance Function 55 

7.4.3 Observations about Sampling 

for the Variance Function 58 

CHAPTER 8 Storm Day Observations: Sampling from the Fine Grid 

Mesh Random Field 

8.1 Introduction 61 

8.2 Sampling for the Spatial Distribution 

of Rainstorm Depth 62 

8.3 Sensitivity Analysis of the Sampling 

for the Spatial Distribution 

of Total Rainstorm Depth 64 

CHAPTER 9 Storm Day Data Processing Computer Programs 

9.1 Storm Day Data Processing 69 

9.1.1 STRMSORT. FORTRAN 69 

9.1.2 STORMDAY. FORTRAN 69 

9.1.3 STORMWET. FORTRAN 70 

9.1.4 TABLE. FORTRAN 71 

9.1.5 Further Comments about Storm Day 

Data Processing 7 2 

CHAPTER 10 Data Archive of Storm Day Spatial Analysis 

10.1 The Storm Day Data Archive 80 

CHAPTER 11 Computational and Ancillary Library Requirements 

11.1 The Honeywell Multics Operating System 82 

11.2 Numerical Libraries 84 

11.3 Graphics 85 

11.4 User Links to the Numerical Algorithm 

and Graphics Libraries 86 


vi 


CHAPTER 12 The Computer Codes 

12.1 Introduction 87 

12.2 TAPEREAD. FORTRAN 87 

12.3 SUMMER. FORTRAN 88 

12.4 DAY. FORTRAN 88 

12.5 BALANCE. FORTRAN 89 

12.6 COORD. FORTRAN 90 

12.7 STRMSORT. FORTRAN 91 

12.8 GAGECORR. FORTRAN 91 

12.9 ALLCORR. FORTRAN 91 

12.10 STORMDAY. FORTRAN 92 

12.11 STORMWET. FORTRAN 92 

12.12 TABLE. FORTRAN 93 

12.13 FUTURE. FORTRAN 93 

REFERENCES 94 


APPENDIX I Computer Program Listings 

TAPEREAD. FORTRAN 

SUMMER. FORTRAN 

DAY. FORTRAN 

BALANCE. FORTRAN 

COORD. FORTRAN 

STRMSORT. FORTRAN 

GAGECORR. FORTRAN 

ALLCORR. FORTRAN 

STORMDAY. FORTRAN 

STORMWET, FORTRAN 

TABLE. FORTRAN 

FUTURE. FORTRAN 


96 

97 
99 

101 

113 

119 

129 

132 

137 

155 

172 

187 

190 


I 

i 

I 


vii 


List of Figures 

Figure Title Page 

3.2.1 Walnut Gulch Experimental Watershed 7 

4.1.1 Monthly Number of Showers at Gage 29 10 

4.1.2 Average Monthly Rainfall at Gage 29 11 

4.1.3 Average Shower Duration at Gage 29 12 

4.1.4 Average Depth Per Shower at Gage 29 13 

4.3.1 Shower Starting Time at Gage 29 16 

6.1.1 The Grid Mesh and Numerical Watershed Boundary 25 

7.1.1 Average Interpolated Storm Day Depth 32 

7.1.2 Standard Deviation of the 

Interpolated Storm Day Depth 33 

7.1.3 Spatial Distribution of the 

Average Interpolated Storm Day Depth 34 

7.1.4 Spatial Distribution of the Standard Deviation 

of the Interpolated Storm Day Depth 35 

7.1.5 Average Storm Day Spatial Correlation 36 

7.2.1 22 June 1970 and 24 July 1970 Storm Days 39 

7.3.1 Estimation of the 22 June 1970 Storm Day 

Spatial Correlation 44 

7.3.2 Estimation of the 24 July 1970 Storm Day 

Spatial Correlation 45 

7.3.3 Gage 29 Unit Impulse 46 

7.4.1 A Simple Illustrative Grid Mesh 59 

9.1.1 22 June 1970 Storm Day 74 

9.1.2 24 July 1970 Storm Day 75 

9.1.3 22 June 1970 Spatial Distribution 

of Total Storm Depth 76 

9.1.4 24 July 1970 Spatial Distribution 

of Total Storm Depth 77 


viii 


List of Tables 


Table 

5.2.T 

5.2.2 

5.3.1 

5.3.2 

7.2.1 

8.3.1 

8.3.2 

8.3.3 

8.3.4 

9.1.1 

9.1.2 


Title 

Original Station Record Data 

DAY. FORTRAN Created Station Record Data 

DAY. FORTRAN Created Station Record Data 

BALANCE. FORTRAN Created Storm Day Record 

Effect of the Interpolator on 
the Moments of the Random Field ... 

Sensitivity of A cd to Minimum Depth Filter 
and Finite Element Dimension ■ 

Sensitivity of A^ to Minimum Depth Filter 
and Finite Element Dimension 

A cd Sensitivity to Finite Element Dimension 

A cd Sensitivity to Minimum Depth Filter 

22 June 1970 Storm Day 

24 July 1970 Storm Day 


Page 
20 
21 
23 
, 23 

. 40 


66 

67 

67 

78 

79 


IX 


I 


Notation 


cd 


cw 

A ,/A 
cd c 

A /A 
cw c 


s 


sc 

C.S. 


F Y (y) 

V ) 


K i ( > 


V > 


R z 

“l 


, 2 

area, km 

2 

catchment area, km 

o 

dry area of catchment, km 

wetted area of catchment 

dry fraction of catchment area 

wetted fraction of catchment area 
2 

storm area, km 

o 

storm-catchment overlap area, km 

coefficient of skewness 

cumulative probability function of Y(x) 

ith order modified Bessel function 
of the first kind 

ith order modified Bessel function 
of the second kind. 

length, km 

ith order Struve function 
2-dimensional plane 

spatial Poisson "nearest neighbor distance,” km, 
simulation distance, km 

maximum simulation distance, km 

maximum simulation distance, km 

point storm depth, mm 

variance function element storm depth, mm 
finite element storm depth, mm 

station observation storm depth , mm 

storm cell spread function parameter, km _1 or dimensionless 


x 


Notation 


(Continued) 


erf ( ) 

f(a) 

f(a) 

f „ (r) 


error function 

standard square error function of parameter a 

probability density function of storm 
cell parameter a 

probability density function of the spatial 
Poisson ’’nearest neighbor distances 


f ( ) "temporal" probability density function 

f Y (y) probability density function of Y(x) 

g(x,z,a) storm cell depth spread function 
n R number of simulation storm cells 


q 


r 

u 

x 

x 

X 


y 

a 

* 

A 

a 

e 

y[A] 
5 ( ) 
5 


bivariate surface interpolator polynomial 
cof f icient 

radial distance, km 

complex variable 

2-dimensional position vector 

expected value of the node depth, mm 

expected value of the variance function 
element depth, mm 

point storm depth, mm 

2-dimensional position vector 

storm cell center depth parameter, mm 

maximum simulation distance parameter 

exponential distribution parameter, mm 1 or dimensionless 

variance function at area A 

delta Dirac function 

gamma distribution parameter 


xi 


Notation 


(Continued) 


! 9 

! < 

I x 

V 

i p(v) 

! p t (v) 

a k 

a Y 

I 

X 

I 

i 


exponential distribution parameter 
gamma distribution parameter 
gamma distribution parameter 
storm cell density parameter, km“^ 
lag distance, km 

spatial correlation coefficient at lag v 

theoretical spatial correlation coefficient 

standard deviation of Y(x) averaged over area A, ram 

standard deviation of the finite element storm depth, mm 

standard deviation of Y(x) 

characteristic function 

gamma distribution parameter 


! 

i 

i 


xii 



CHAPTER 1 


Introduction 

1*1 Background 

Current atmospheric general circulation models (GCMs) use complex 
numerical techniques to solve the hydrodynamic and thermodynamic equations 
for the atmosphere, but they generally treat the landsurface moisture 
boundary condition in a rather simplistic way. An important improvement 
upon existing GCMs would result from incorporation of the subgrid-scale 
spatial characteristics of storm rainfall. 

There are many problems inherent in a spatial analysis of rainfall. 
First, there is a lack of data collection networks of sufficiently small 
resolution and of areal extent approaching the scale (10^ km 2 ) of a 
typical GCM grid square. This is primarily due to the operational costs 
of such networks. The difference in scale between a single GCM grid 
square and the few existing dense raingage networks is typically at least 
one order of magnitude. 

Related to the adequacy of the spatial scale of resolution of 
raingage networks is the broad variation among recognized precipitation 
systems. It is well known that different types of precipitation systems 
may span several orders of magnitude both spatially and temporally. 
Orlanski [1975] summarized the scales of various types of precipitation 
systems. Thunderstorms have characteristic scales between 2-20 km 
spatially and between two minutes and four hours temporally. Frontal 
systems and hurricanes may range from 200-2000 km spatially and from one 
day to a week temporally. Others have reported that most of the 
mid-latitude precipitation occurs in storms that are on the order of 
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20-2000 km in scale. Clearly, dense data collection networks cannot be 
operated with sufficient resolution to encompass such large scale storm 
systems. Another important issue to consider with respect to a spatial 
analysis of precipitation is the movement or translation of the event or 
components of the event. The movement of large scale frontal systems has 
been widely investigated. Rainbands located within cyclonic frontal 
systems may move at rates of 60-70 kilometers per hour. Such a system of 
characteristic spatial scale and duration will move quickly into and out 
of the typical dense raingage network. In contrast, convective cells 
within a local thundershower may move at most a few kilometers an hour 
during the lifetime of the event. 

For these reasons, we focus on rainstorms of limited areal extent and 
limited translation, specifically, the air-mass thunderstorm. The storms 
studied were observed by the dense raingage network maintained by the 
Agricultural Research Service (USDA) in the Walnut Gulch, Arizona 
experimental catchment. 

1.2 Goals and Objectives 

The general objective of this study is to perform a probabilistic 
analysis of the spatial random field of total rainfall depth resulting 
from stationary thunderstorms with a view toward developing general 
descriptions of the spatial characteristics of such storms. 

The specific objective of this report is: 

(1) to use station observations from a dense raingage network to 
estimate the moments, spatial correlation, variance of the 
local averaging process, and the spatial distribution of total 
storm rainfall depth. 
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CHAPTER 2 


General Characteristics of Air-Mass Thunderstorms 
2.1 Air-Mass Thunderstorms 

Thunderstorm rainfall is one type of precipitation associated with 
air-mass movement. As a general rule, cyclonic action is weak, during the 
summer months in the mid-latitudes, and the predominant type of event is 
the thunderstorm. Several types of thunderstorms are recognized and are 
distinguished by the actions of the air mass in which the event occurs. 

The principal categories include air-mass thunderstorms, frontal thunder- 
storms (associated with either a warm or a cold front) and squall line 
thunderstorms. 

Battan [ 1984] defines an air-mass as a widespread body of air that is 
approximately homogeneous in its horizonal extent, particularly with 
respect to its distribution of temperature, moisture and their respective 
vertical gradients. An air-mass thunderstorm occurs when the moist air 
within the air-mass becomes unstable. 

The air-mass thunderstorm typically results from intensive daytime 
heating of the land surface. This surface heating creates a conditional 
instability (see Cole [1980]), which may lead to the development of local 
convective circulation. Because of the surface origin of the convective 
disturbance these storms tend to be relatively stationary. 

In its early stage of development, the air-mass thunderstorm consists 
primarily of one or more actively rising thermals. These convective cells 
cool as they rise to higher elevations; the local moist air attains 
saturation and moisture condenses out as raindrops. Entrainment of 
subsaturated air from outside the convective cell further contributes 
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to the cessation of these updrafts, and the vertical buoyancy of the 
convective cell is arrested. 

At this stage, evaporation of raindrops leads to local cooling and to 
the development of downdrafts, which carry precipitation and cool air to 
the surface. Updrafts and downdrafts may co-exist side by. Eventually as 
the storm matures, the convective updrafts weaken from a lack of local 
warm air available for further entrainment and the storm begins to 
dissipate. Once the air-mass thunderstorm has overturned the local 
atmosphere, static stability is restored. Characteristically, air-mass 
thunderstorms occur in the mid- to late afternoon when land surface 
temperatures are at their greatest. The duration of these events tend to 
be on the order of an hour. 

2.2 Storm Movement 

One of the objectives of this study involves the modeling of total 
rainfall depth generated by assumed stationary convective cells and is 
reported in a companion volume. For this purpose, we shall assume that 
the air-mass thunderstorms in the area of study are horizontally motion- 
less in space. This assumption is supported by the work of Fletcher 
[i960] who found that air-mass thunderstorms in Arizona have little 
translational motion. 
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CHAPTER 3 


The Walnut Gulch Experimental Watershed 

3.1 Selection of the Data Network 

In 1953, two southwest rangeland watersheds were selected by the 
Agricultural Research Service (U.S.D.A.) as field laboratories [Osborn et 
al., 1979]. The primary objective of the envisioned field research was to 
quantify water yield from rangeland watersheds. The first watershed 
chosen was the 150 km^ Walnut Gulch basin located in southeastern 
Arizona. The second watershed was the 174 km^ Alamogordo Creek basin 
located in eastern New Mexico. 

According to Osborn [1967], the Walnut Gulch watershed represents a 
region in the southwest U.S. where almost all the thunderstorms result 
from purely surface heating, e.g., air-mass thunderstorms. He states that 
in contrast, the Alamogordo Creek watershed is representative of a region 
where thunderstorms form from combined surface heating and frontal 
activity, as well as by purely surface heating. 

Osborn and Hickok [ 1968] determined that 70% of the annual rainfall 
and essentially all of the runoff from rangelands in southeastern Arizona 
result from air-mass thunderstorms. Osborn and Laursen [ 1973] found that 
despite the frequency of air-mass thunderstorms, the more massive frontal 
convective thunderstorms contribute the higher proportion of annual 
rainfall and subsequent runoff in eastern New Mexico. They found that 
frontal convective thunderstorms are essentially non-existent in Walnut 
Gulch during the summer months. 

Because the objective of this study is to focus on stationary 
thunderstorms and because frontal system thunderstorms are usually moving, 
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the Walnut Gulch experimental watershed is selected for analysis. We will 
assume that all summer storms on the watershed are air—mass thunder- 
storms. 

3.2 Geographical Characteristics of the Walnut Gulch Watershed 
Walnut Gulch is an ephemeral stream located in the San Pedro River 

basin, in southeastern Arizona. The Walnut Gulch basin is similar to much 
of the brush— grass rangeland found elsewhere in the southwestern United 
States in that the lower two thirds of the basin is largely brush covered, 
and the remaining higher reaches are covered by mostly native grasses 
[Osborn and Laursen, 1973]. The elevation of the watershed ranges from 
4000 to 6000 feet as shown in Figure 3.2.1, where the elevation contours 
are drawn at 200 foot intervals. 

3.3 Summertime Rainstorm Characteristics 

Renard and Brakensiek [ 1976] report that the characteristics of 
precipitation in the rangeland areas of the United States are varied and 
depend on the atmospheric moisture source, the season, and the elevation 
among other things. Battan [1984] states that much of the winter moisture 
in the western rangelands comes from the Pacific Ocean, carried into the 
region by westerly winds. There has been a great deal of debate as to 
whether the moisture source of the summertime thunderstorm is the Pacific 
Ocean or the Gulf of Mexico (see Osborn [1967]; Osborn and Lane [1972]; 
Hales [1973]; Osborn and Davis [1977]). More recently, however, using GCM 
experiments, Koster et al. [1986] show that the predominant summertime 
moisture source of this region is the continental U.S. 
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Fig. 3.2.1 Walnut Gulch Experimental Watershed 



3.4 The Walnut Gulch Raingage Network 

Osborn et al. [1979] report that the Walnut Gulch raingage network 
was originally designed as a grid with gages located at one mile inter- 
vals. Because access to some of the planned locations was difficult due 
to the terrain, actual gage locations vary from the original grid. 
Recording raingages were installed and became operational in 1934. Due to 
a lack of funding, the basic network was incomplete until 1961. On the 
basis of their research, Osborn and Reynolds [ 1963] determined that there 
were "gaps" in the network. Consequently, additional gages were placed 
within the perimeter of the watershed. By 1967, additional gages had been 
added along and outside of the watershed boundary. The density of the 
network is now about one gage per 2 km^. The total area covered by the 
network is roughly 180 km^. 

The network is composed of standard non— recording raingages, and 6 
and 24 hour weighing type strip chart recording gages. In this study, 
only data from the recording raingages is used. 
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CHAPTER 4 


Preliminary Data Analysis 

4.1 Preliminary Analysis of Long-Term Raingage Statistics 

In order to gain a preliminary feeling for the climate in the region 
of Walnut Gulch, Arizona, an analysis of the long-term record for a single 
raingage was undertaken. Raingage 29, located roughly in the center of 
the basin, was selected for this purpose (see Figure 3.2.1). 

A continuous record from 1 January 1955 through 31 December 1977 was 
examined. In order to ascertain the seasonal variation in rainfall, a 
preliminary analysis of the precipitation data compiled for each month was 
performed. The results are presented in Figures 4.1.1, 4.1.2, 4.1.3, and 
4.1.4 which show respectively the monthly number of showers, the average 
monthly rainfall, the average duration of the showers and the average 
depth per shower all at Gage 29. These results clearly show the 
domination of annual rainfall by the summer events. Almost one half of 
the annual rainfall events and over one half of the annual rainfall take 
place during the months of July and August, in showers of duration on the 
order of 1 to 2 hours. 

We define a shower as being a precipitation event during which one 
or more gages is always recording precipitation. 

4.2 Selection of the Summer Rainy Season 

Observations by Osborne et al. [ 1979] show that the summer 
precipitation at Walnut Gulch stems from air-mass thunderstorms while 
precipitation during the winter months results from frontal storm 
systems. Our analysis of the gage 29 records supports these 
observations. We note 
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Fig. 4.1.2 Average Monthly Rainfall at Gage 29 
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Fig* 4*1.4 Average Depth Per Shower at Gage 29 







for example that the average storm duration of the winter storms is twice 
that of the summer storms. 

Because our objective is to analyze the spatial characteristics of 
precipitation systems having little or no advective component, the summer 
air-mass thunderstorms are chosen and definition of the summer rainy 
season is necessary. From the long term record of gage 29, the month of 
May clearly marks a seasonal transition in the local climate. In May, the 
total number of showers recorded at this gage is a minimum and the least 
amount of rainfall was recorded as shown in Figures 4.1.1 and 4.1.2, 
respectively. It is more difficult to distinguish the month in which the 
summer season ends. The number of events recorded by gage 29 in September 
is roughly half that recorded during the month of August, however, the 
average rainfall depth per shower as shown in Figure 4.1.4 would appear to 
be more closely related to the summer storms than to the winter storms. 

For these reasons, the summer rainy season selected for this study was 
chosen to extend from 1 June through 1 September. 

4.3 Independent Rainstorm Events and the Storm Day Concept 

The problem of selecting independent events from gage records has no 
clear cut solution at the present time. Clearly, single raingage 
observations offer little in the way of information to assist in defining 
a single storm. Casual observations support this contention. A shower 
may stop for a brief period of time, only to resume again. Intuitively, 
if the inter-shower duration is "short", the separate showers probably 
belong to the same storm system. However, how long should this 
inter-shower duration be in order to delineate separate storm events? 
Restrepo-Posada and Eagleson [ 1982] examined this problem and suggested 
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that should the coefficient of variation of the time between showers be 
less than or equal to one, then the storms might be assumed statistically 
independent events. In other words, there is a minimum intershower time 
in order for two successive showers to be considered statistically 
independent rainstorms. For Walnut Gulch, analysis of gage 29 summer 
season records using the method of Restrepo-Posada and Eagleson [ 1982] 
indicates this time to be 18.6 hours. A similar analysis which 
incorporates all the gages in the network simultaneously in time, 
indicates that for the entire Walnut Gulch watershed, the minimum 
intershower time is 27.5 hours. 

The records for gage 29 suggest that during the summer rainy season, 
there is precipitation every two to three days, particularly during July 
and August. In a climate dominated by air-mass thunderstorms, one would 
expect the highest frequency of showers to occur in the mid- to late 
afternoon when the land surface temperatures and therefore the vertical 
convective processes are at a maximum. The gage 29 records are analyzed 
for shower starting time and shower duration during the summer season. 
Figure 4.3.1 shows that rainfall begins most often between 4 and 5 p.m. 

On the basis of this analysis and the minimum intershower time for 
independent events, daily precipitation amounts are considered to be 
independent. Accordingly, a "storm day” is defined as the 24 hour period 
during which rainfall is recorded by at least one raingage within the 
basin network. The "storm day" begins at noon of the calendar day and 
extends to noon the following day. During the eight year period of record 
for which complete network data were available, there were 431 storm days 
in the Walnut Gulch basin. 
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A computer program called SUMMER. FORTRAN is written which retains 
only the summer season station observations. SUMMER. FORTRAN is discussed 


in Chapter 12 


CHAPTER 5 


Data Reduction and Reformulation 
5.1 Organization of the Raw Data 

The data used for the spatial analysis of storm depth are drawn from 
eight years of digitized raingage records. Information from over one 
hundred gages is available and ultimately the data from 93 gages are 
used. The majority of the raingages are of the tipping bucket variety 
used with continuously recording strip chart devices which record 
cumulative rainfall. 

According to Agricultural Research Service personnel, rainfall 
intensity is digitized from the recorder charts when there appears to be a 
change in the rate of total rainfall accumulation. This leads to 
non-uniform sampling intervals during which the rainfall intensity may be 
assumed constant. 

For the period of time during which each gage recorded continuous 
rainfall, a separate record was created for the digitized archive. Each 
record (for each gage) contains the raingage identification number, the 
(starting) date of the shower, the time at which the shower began, the 
duration of the shower and the cumulative or total depth of the shower. 

In the case where there is a lull in the rainfall (which was not unusual), 
a separate record was created when the rainfall began again. For this 
study, the relevant information in each record is the date of the shower, 
the starting time and duration of the shower, and the total depth recorded 
by each raingage. 
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5.2 Conceptual Reorganization of the Raw Data 

Following the decision to adopt the " storm day" convention discussed 
in Section 4.2, special preparation of the original raingage data becomes 
necessary. To reiterate, the storm day is defined as the 24 hour period 
beginning at noon of the present calendar day and extending to noon the 
following day. Consider a hypothetical shower which was recorded by 
raingage 46 on 27 July 1971. The shower began at 1:00 p.m. and ended at 
2:47 p.m. In the case of this record, the total rainfall from this shower 
belongs to that which fell during the 27 July, 1971 storm day. Suppose 
instead that the shower began at 7:30 a.m. on 27 July 1971 and ended at 
11:02 a.m. the same morning. Then by our definition, the rainfall 
recorded during this time is assigned to the total rainfall recorded 
during the 26 July 1971 storm day. Suppose however that the shower began 
at 11:00 a.m. and ended at 2:00 p.m. on the 27th of July. In this case, 
the duration of the shower recorded by the gage was 3 hours. We therefore 
assume a constant rainfall intensity and assign one third of the total 
depth from this record to the 26 July 1971 storm day, and the remaining 
two thirds to the 27 July 1971 storm day. 

The objective at this stage of data manipulation is to sum the total 
depth of rainfall recorded by each gage for each storm day according to 
our definition. There are many instances in the original data in which 
rainfall was recorded in the form of several separate records which were 
obtained during the course of a single storm day. In order to accomplish 
this manipulation, a computer program is developed and called 
DAY. FORTRAN. This program is discussed in Chapter 12. 
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A brief example is presented below which illustrates the basic 
principles of Che DAY. FORTRAN computer code. We shall continue with the 
hypothetical data recorded by gage 46 on 27 July 1971. 

The original data are written in the following format. 

Table 5*2.1 

Original Station Record Data 


Gage 

I.D. 

Year 

Month 

Day 

26 

Starting 

Time 

Duration 

(min) 

Total 
Depth (mm 

46 

71 

7 

1300 

60 

5.6 

46 

71 

7 

27 

1100 

180 

9.0 

46 

71 

7 

27 

1900 

120 

11.3 

46 

71 

7 

28 

330 

80 

6.2 

46 

71 

7 

28 

1400 

75 

3.1 


We see that the first shower began at 1:00 p.m. and ended at 2:00 
p.m. and the total depth from this shower is assigned to the 26 July 1971 
storm day. The first shower recorded on the 27th began at 11:00 a.m. and 
ended at 2:00 p.m. In this case, 3 mm or one third of the total shower 
depth is assigned to the total storm day depth of 26 July. The remaining 
6 mm (that which fell after noon on the 27th) is assigned to the total 
depth of the 27 July storm day. The second shower on the 27th began at 
7:00 p.m. and lasted until 9:00 p.m. This depth of 11.3 mm is assigned to 
the 27 July storm day total. The first shower which was recorded on the 
28th of July began at 3:30 a.m. and ended at 4:50 a.m. the same morning. 
Because this shower began and ended before noon on the 28th, the total 
shower depth of 6.2 mm is assigned to the 27 July 1971 storm day. The 
final shower in this hypothetical series of records began at 4:00 p.m. 
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and ended at 5:15 p.m. on the 28th. The total depth of this shower is 
assigned to the 28 July 1971 storm day. 

From the five original records in this hypothetical series, the 
DAY. FORTRAN program creates the following new data set, each record in the 
new series corresponding to each of the three storm day total depth 
records. 

Table 5.2.2 


DAY. 

FORTRAN 

Created 

Station 

Record Data 

Gage 

I.D. 

Year 

Month 

Storm 

Day 

Total 

Depth (mm) 

46 

71 

7 

26 

8.6 

46 

71 

7 

27 

23.5 

46 

71 

7 

28 

3.1 


Following the creation of the new data set for each of the raingages 
during the eight summer seasons of records, a preliminary assessment of 
the gage records was conducted. Of the one hundred plus gages among the 
records, several were not operational for the entire period of record, and 
so they were discarded from further processing. Several others were not 
located on the map provided by the U.S.D.A. and were also discarded from 
further processing. Ultimately, 93 raingage records were included in all 
further aspects of the study. There are eight years of record during 
which all 93 raingages were operating. These yielded 431 separate storm 
days. 


5.3 Basin-wide Inter-gage Comparison and Data Creation 

The next phase of data manipulation involves the inter-gage 
comparison of all the raingages throughout the network for each storm 
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day. As was described in the preceding section, the original data records 
for each shower include only periods during which rainfall was recorded. 

The next step is to create storm day records which note those gages 
that recorded no rainfall during each storm day of a single summer 
season. In order to accomplish this task, a computer program called 
BALANCE. FORTRAN was developed and run for each of the eight summer rainy 
seasons. The BALANCE. FORTRAN computer code is discussed in Chapter 12. 

Following the summer season by summer season implementation of 
DAY. FORTRAN, BALANCE. FORTRAN is run. BALANCE. FORTRAN first inspects the 
storm day records for the season gage by gage and determines the number of 
storm days for the season, and the precise date of each storm day. The 
program then reinspects each gage storm day record to see if that gage 
recorded precipitation during a particular storm day. If that gage did 
record rainfall, the program moves on to the next gage record. If, 
however, that gage did not record rainfall on that storm day, then a 
record of zero rainfall depth is created. This comparison and creation of 
zero depth rainfall records is conducted on each gage as necessary for 
each storm day, summer season by summer season, for each of the eight 
years of record. 

The following is an example which will clarify the approach of 
the BALANCE. FORTRAN program. Consider the results of the DAY. FORTRAN 
processing outlined in the preceeding section for gage 46. Here we also 
present the hypothetical results of the DAY. FORTRAN processing of gage 
15. This data £s presented in Table 5.3.1. For the sake of brevity, we 
assume that the 1971 summer rainy season had only five storm days. 
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Table 5.3.1 



DAY. FORTRAN 

Created 

Station Data 

Record 

Ggge 

I.D. 

Year 

Month 

Storm 

Day 

Total 
Depth (c 

46 

71 

7 

26 

8.6 

*46 

71 

7 

27 

23.5 

46 

71 

7 

28 

3.1 

15 

71 

6 

24 

5.9 

15 

71 

7 

27 

20.2 

15 

71 

7 

28 

2.1 

15 

71 

8 

1 

4.3 


From the table above, we see that there were storm days on 24 June, 26 
July, 27 July, 28 July, and 1 August. Following implementation of 
BALANCE . FORTRAN , zero total depth records are created for the storm days 
of 24 June and 1 August for gage 46, and for 26 July at gage 15. The 
final data set is presented in Table 5.3.2. 

Table 5.3.2 

BALANCE. FORTRAN Created Storm Day Record 


Gage 

I.D. 

Year 

Month 

Storm 

Day 

Total 

Depth (mm) 

46 

71 

6 

24 

0.0 

46 

71 

7 

26 

8.6 

46 

71 

7 

27 

23.5 

46 

71 

7 

28 

3.1 

46 

71 

8 

1 

0.0 

15 

71 

6 

24 

5.9 

15 

71 

* 

7 

26 

0.0 

15 

71 

7 

27 

20.2 

15 

71 

7 

28 

2.1 

15 

71 

8 

1 

4.3 
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CHAPTER 6 


Interpolation and Filtering of the Storm Day Random Field 

6.1 The Numerical Watershed Boundary 

The random field of rainstorm depth must be analyzed over a 
particular area. It is convenient and hydrologically relevent to define 
the area by the boundaries of the Walnut Gulch catchment. 

For computational purposes, it is convenient to interpolate the 93 
station observations onto a rectangular mesh of equally spaced node 
points. The resolution of the mesh is dictated by the available virtual 
memory of the computer system. The finest grid resolution (node spacing) 
in this study is 100 meters. This produces 41,160 equispaced node points, 
or a matrix of 140 rows by 294 columns. A scale map of the U.S.G.S. 
topographic series with the raingage locations and the watershed boundary 
was obtained from the U.S.D.A. A rectangular mesh of lines representing 
the row and columns are ruled on this map at 100 meter spacings (see Fig. 
6.1.1). Each 100 meter by 100 meter box represents a 0.01 km 2 grid 
square. The intersection of each row and column represents a node point. 
Horizontal and vertical line segments approximating the perimeter of the 
drainage basin are drawn on the map between nodes lying close to or on the 
basin boundary. 

Following the creation of this mesh boundary which approximates the 
actual catchment boundary, the grid is examined row by row for the 
coordinates of each node which lie on the approximate boundary. For each 
row, a special logical examination is made and a unique expression is 
created. The purpose of this expression for each row is to replace the 
values of the interpolated point depths outside the watershed boundary 
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The Grid Mesh and Numerical Watershed Boundary 








with an artificial value. For example, on row 35 there are two artificial 
boundary nodes, i.e. row 35 crossed the basin boundary twice. The first 
boundary node lies in column 86 and the second in column 184. The 
appropriate logical expression for row 35 is then that all values of the 
interpolated mesh surface on row 35 that Lie in columns 86 through column 
184, are within the limits of the basin. For columns 1 through 85 and 
columns 185 through column 294 the values on row 35 lie outside the area 
of interest and we wish to ignore them. For each of these latter values 
regardless of the value assigned to those nodes by a surface interpolator, 
each node is assigned a value of -1.0 mm which defines nodes of no 
interest. The assignment of this nonsense value of storm day depth then 
becomes the key to the various spatial sampling schemes. 

From the scale map, the coordinates of each raingage is determined. 
The coordinate system is based solely on the coordinates of the ruled 
mesh. A special computer program is developed that assigns coordinates to 
each raingage in each storm day record. The program is called 
COORD. FORTRAN and is discussed in Chapter 12. Thus, given the total storm 
day rainfall depth and spatial coordinates for each of the 93 gages in the 
final network, the bivariate surface interpolator can be implemented. 

It should be noted that while the natural catchment area as given by 
o 

the A.R.S. is 150 km the area as defined by this numerical boundary is 
2 

154 km and will be used hereafter. 

6.2 The Bivariate Surface Fitting Interpolator 

In Chapter 5, we discussed the basin wide inter-gage comparison and 
data creation which resulted in 431 storm days for the eight year summer 
season period of record. At this stage of development, there are 93 
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raingage records for each storm day ready for further processing. In 
order to proceed with the planned spatial analyses, an algorithm which 
interpolates a continuous surface from the gages is necessary. 

For each storm day gage record, we have created data which include 
total storm day depth and its x and y spatial coordinates in the 2-d 
plane. A particular complexity is that the Walnut Gulch raingage network 
is not evenly spaced on a grid. The surface interpolation algorithm 
developed by Akima [ 1978] is adopted to interpolate a bivariate surface 
from irregularly distributed data points. 

In Akima's [1978] procedure, the x-y plane is divided into a number 
of triangular cells, each having projections of three data points in the 
plane as their vertices. A bivariate fifth degree polynomial in x and y 
is developed for each cell. Estimated values of the partial derivatives 
at each vertex of the cell are used to determine the coeff :ients of the 
polynomial • 

The interpolation of depth Y(x,y) within each triangle is based on 
the following: 

(1) The value of the function at point (x,y) in a triangular cell is 
interpolated by a bivariate fifth-degree polynomial in x and y; 

5 5_j 

Y(x,y) -l l q ik x J y k (6,2,1 

j =0 k=0 J 

(2) The values of the function and the estimates of its first and 
second partial derivatives are given at each vertex of the cell. 

(3) The partial derivatives of the function taken in the direction 
perpendicular (or normal) to each side of the cell are at most 
third-degree polynomials in the variable measured in the 
direction of the side of the triangle. 
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Akima [1978] also proved that the interpolated surface must be smooth 
due to continuity of the derivatives along the sides of adjacent 
triangluar cells. He did not expect a high degree of accuracy with 
respect to extrapolation outside the limits of the spatial data, but felt 
that it would be desirable for any extrapolations to be smooth. 

The bivariate surface interpolator developed by Akima and used for 
this study is proprietary software. Access to the source code in order to 
more fully describe the techniques used is not possible. The MIT 
computational group subscribes to the I.M.S.L. (International Mathematical 
and Statistical Libraries). The subroutine developed by Akima is called 
IQHSCV by I.M.S.L. 

Given the raingage storm day total depths and their spatial coordin- 
ates in the x-y plane, the bivariate surface fitting interpolator outputs 
a grid of uniformly spaced interpolated data at the nodes of the mesh. 

The outside dimensions of the mesh in real space are 14.0 km. by 29.4 km., 
a rectangular area which encompasses the entire 150 km 2 Walnut Gulch 
drainage basin plus those gages located outside its perimeter. 

Two mesh resolutions were used for the various probabilistic spatial 
analyses in this study. For one part of the work, a mesh resolution of 
200 meters (0.04 km 2 grid square area) was used and for the second 
portion, a node spacing of 100 meters (0.01 km 2 grid squares) was used. 
More details about each will be discussed in Chapter 7 and Chapter 8. 

It is realized that use of a deterministic interpolator will 
introduce spatial dependence that is not present in the observations. 

This will bias estimates of the moments and of the spatial correlation to 
a degree that will be evaluated empirically in a later section. 


28 


6.3 Additional Post Surface Interpolation Filters 

The interpolated surface outside the watershed boundary is overlaid 
by the special boundary filter which imposes values of -1.0 mm of total 
storm day depth at the node points outside the basin boundary. In addi- 
tion to this filter, two other filters are imposed on the random field. 

In the mathematical modeling of spatial distribution of total storm 
depth, presented in a companion volume, an important assumption is made 
about the spatial distribution of storm depth in a given raincell. It is 
assumed that the minimum non-zero depth is 0.01 mm. This is consistent 
with there being a limit to the practical resolution of rainfall recording 
devices. Therefore, a filter is created that examines the mesh and 
imposes a value of zero on all those random field nodes which have total 
storm day depths less than or equal to 0.01 mm. This includes those nodes 
at which, due to the smoothing and continuous nature of the bivariate 
surface interpolator, there are node point depth values less than zero. 

The filter is designed in such a way as to redefine only those node point 
depth values within the perimeter of the watershed and the previously 
defined values of -1.0 mm. outside the basin are left untouched. 

Following the spatial sampling of the random field within the limits 
of the watershed, these values are redefined by another filter. The 
purpose of this third filter is only for creating contour plots. In such 
cases any node point with a value of zero, is redefined to have a value of 
-0.99 in order to allow the graphics package to draw a zero rainfall 
isohyet. At no time are the results from this last filter used during any 
of the spatial sampling schemes. 
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CHAPTER 7 


Storm Day Observations: Sampling from the Coarse Grid Mesh Random Field 

7.1 Spatial Homogeneity and Isotropy of the Random Field 

In the sampling process, some basic assumptions about the nature of 
the random field are necessary. In particular, spatial homogeneity and 
isotropy play a crucial role in the theory and application of random 
fields. The random field, Y(jc) , is "wide sense" homogeneous if (Bras and 
Rodriguez-Iturbe [ 1985] ). 

E(Y) = constant (7.1.1) 

and 

COV ( 3C x , x^ ) = COV(x -x ) - COV(v) (7.1.2) 

or 

p(x x ,x 2 ) = (7.1.3) 


- p ( v.) 

I 

I 

1 The random field Y(x) is considered to be homogeneous and isotropic if 

p ( v) - p( | v.J ) (7.1.4) 

This implies that the correlation function depends only on the length of 
the vector v^, and is independent of its direction in space. 

In the ideal case of a homogeneous random field, the expected value 
of total rainstorm depth in space can be described as a plane parallel to 
the surface of the 2-d x-y plane. In practice however, one would expect, 
some local variation about the mean due to local geographical and 
topographical influences. Such variations could manifest themselves as 
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local rainfall maxima and minima due to orographic effects, bodies of 
water, etc. This is investigated here by analyzing the 1970-1973 summer 
season ensemble of 202 storm days. The expected value and standard 
deviation of the average interpolated storm day rainfall depth are 
determined and presented as isopleths over the catchment in Figures 7.1.1 
and 7.1.2. The spatial distribution of the average and standard deviation 
of the storm day depth are also presented in Figures 7.1.3 and 7.1.4 
respectively. Inspection of these results suggest that since the surfaces 
of the mean and variance of the storm day depth are so uniform, the 
assumption of homogeneity is valid. 

The assumption of anisotropy is investigated by comparing average 
spatial correlations in orthogonal directions. The storm day spatial 
correlation functions are averaged across the ensemble of storm days in 
the 1970-1973 period at each lag (up to 9 km) in the x (i.e. West to East) 
direction and again in the y (South to North direction). These are 
compared with the bidirectional average in Figure 7.1.3. We see that the 
three correlation functions are essentially identical and hence the 
assumption of isotropy seems justified and is used in all further 
analysis. The techniques used to sample the random field for the spatial 
correlation are described in Section 7.3. 

The apparent non-zero asymptote of ( ) in Figure 7.1.5 represents 
the correlation arising from the component of variance between storms 
[Rodriguez-Iturbe, Cox and Eagleson, 1986]. This interstorm variance 
results from the different strengths of separate storm-producing insta- 
bilities. It may also result from incomplete (and variable) coverage of 
the catchment by the storm [see Eagleson and Wang, 1985]. In our data 
analysis we have assumed complete coverage. 
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1 970- 1 973 Sid. Dev. Storm Day Dep 

Average Std. Dev. of Depth of rield=8.5 mm. 
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Fig. 7.1.4 Spatial Distribution of the Standard Deviation of the Interpolated 

Storm Day Depth 




IE 




I 


7.2 Sampling for the Moments of Total Storm Day Depth 

The first step in the spatial analysis of total storm day rainfall 
depth Y is to determine the moments of the random field. We will find 
E(Y), VAR(Y) and C.S.(Y): the expected value; the variance; and the 
coefficient of skewness respectively. The first two moments are used in 
estimation of the parameters of the three models of storm depth presented 
in a companion volume. 

Following the creation of the coarse mesh total depth surface by 
interpolating the 93 station observations and implementing the basin 
boundary filter described in Chapter 6, the random field is sampled. By 
invoking a simple logical condition filter, only the random field within 
the basin boundary is sampled. The moments of the random field for each 
storm day are estimated in accordance with Benjamin and Cornell [1970]. 

Let y - y(i,j) represent the total depth at node i,j within the basin 

limits. Provided that y does not equal -1.0 mm, the estimator of the 

expected value of point depth E(Y) within the IxJ matrix (i.e. within the 
catchment) is described by 

1 1 J 

E(Y) “ TT l l yU.j) (7.2.1) 

i=l j=l 

where n equals the number of node points which lie within the watershed. 
The estimator of the variance of the point depth within the catchment is 
given by 

1 1 J 2 2 

VAR(Y) = — — j- l l y(i,j) 2 - E 2 [Y] (7.2.2) 

i=l j=l 
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and the skewness coefficient of the point depth is given by 

£ £ .1 [Ki.j) - Em] 3 

C.S. [Y] = — — — ^ — yT? (7.2.3) 

(VAR[Y ] ) 

The value of the constant "n" in each estimator equals 4005 which 
is the number of nodes of the coarse mesh within the catchment 
boundaries. 

It should be noted that the above estimators for the mean and 
variance of the first two catchment moments are "unbiased". However, 
because the catchment size is small with respect to the scale of 
fluctuation of the random fields, most statistical properties of the 
random field contained within the catchment are small samples of the 
assumed homogeneous and hence infinite parent random field. Vanmarcke 
[1985, p. 332] evaluates the bias in such small sample estimators of the 
parent field statistics. We will deal with this bias in a later section. 

The effect of the interpolator on the moments can be seen in Table 
7.2.1 where they are compared with the moments of the observations for the 
two representative storms illustrated in Fig. 7.2.1. 
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Storm Day 
June22, 1970 



0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 

Kilometers 


Storm Day 
July 24, 1970 



Fig. 7.2.1 22 June 1970 and 24 July 1970 Storm Days 
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Table 7.2.1 


Effect of the Interpolator on 
the Moments of The Random Field 

Storm Day Gage Observations, Y 0 Interpolated Field, Y 




Mean 

Variance 

Mean 

Variance 

22 June 

1970 

0.24 

1.04 

0.27 

0.77 

24 July 

1970 

8.07 

61.78 

7.97 

48.83 

Interpolation 

leaves 

the mean 

essentially 

unchanged, but 

, as might 


expected, its smoothing significantly reduces the variance. Some such 
smoothing must be present naturally however. 

7.3 Sampling for the Spatial Correlation 

In Section 7.1, evidence to support the homogeneity and isotropy of 
the total depth random field is presented. These assumptions are 
particularly important in determining the spatial correlation of the point 
rainfall process. 

The variation of an n-dimensional random field Y(x) at two locations 
x f « (x’,...,x’) and x" = ( x'j’ , . . . , x" ) is characterized by the correlation 
function [Vanmarcke, 1983] 

COV[ Y(x'),Y(x M )] 

3 P Y <*1>*2> - a Y (x')0 Y U") (7 * 3,1) 

where 

COVIYU’^YCx")] = E[Y(x')Y(x")] - mCxOmOc”) (7.3.2) 
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2 2 2 M 2 

mCx’) and mCx." ) are Che means and a^Cx/ ) = cr (21*) atl< ^ Oy^^l ) = cy (x. ) ^he 
variances of Y(x f ) and Y(x") respectively. 

From the prior assumption of homogeneity, the covariance function 
will depend only on the relative position of x. 1 anc ^ 21 * s h a ll define 

v - x f - 21” (7.3.3 

as the lag vector whose components are 


K ~ \ 


k = 1 , . . . ,n (7.3.4) 


For a two dimensional random field, the covariance function can be 
represented by two functions, each defined for positive lag distances 
only [Vanmarcke, 1983, pp. 79]. They are: 

COV( Vl ,v 2 ) = COV(-v lt -v 2 ) v l ,v 2 >.0 (7.3.5) 

and 

COV(-v,,v 2 ) = COV( Vl ,-v 2 ) v 1 ,v 2 >0 (7.3.6) 


An examination of the spatial correlation is necessary for the 
purpose of model parameter estimation, which will be discussed in detail 
in a companion volume. 

The actual sampling of the random field and the techniques used to 
perform the spatial correlation analysis received a great deal of 
attention during the course of this study. The first approach taken was 
to examine the spatial correlation of total depth among the 93 station 
observations alone. 
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7.3*1 Correlation of Observed Station Depths 

The raingages are spaced about one kilometer apart on the average. A 
few gages are spaced less than 100 meters apart, and the greatest distance 
between a pair of gages among the 93 used, was 23 km. The average inter- 
gage distance is 7.9 km. (i.e. averaging all independent pairs). 

A computer program is developed called GAGCORR. FORTRAN in order to 
examine the spatial correlation of observed raingage storm depth. The 
algorithm designed to perform this analysis first examines each pair of 
raingages in the network and the distance separating each member of the 
pair. Each pair is assigned a unique identification value. This I.D. 
assures that each pair will be examined only once in the contribution to 
the covariance estimation at that lag distance. The lag distance between 
a pair of gages is rounded up or rounded down to the nearest 500 meters. 

Let E(Y 0 ) and VAR(Y 0 ) be the mean and variance of the storm day 
depth for the 93 station observations. Furthermore, let 

2 2 1/2 

v = [(x.- x.) + ( 7i - y_.) ] (7.3.7) 

represent the lag distance between gage i and gage j, where x^.yi and 
x j ,y j are the s P atia l coordinates of gage i and gage j respectively 
(not to be confused with depth y 0i and y 0 j at gages i and j). 
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Then the spatial correlation at lag k is estimated by: 


p ( v k } 


COV[Y o ,Y ] 
1 J_ 

VAR(Y q ) 


(7.3.8) 


where k = 0 , 0 . 1 , 0 . 2 , . . . , 10 km. 

Typical gage correlations are shown in Figures 7.3.1 and 7.3.2 using the 
22 June 1970 and the 24 July 1970 storm days (see Figure 7.2.1) as exam- 
ples. For sparse storms such as 22 June 1970 the results are extremely 
noisy. Because of this, the analysis of the spatial correlation of rain- 
fall depth is approached using the interpolated field. 

7.3.2 Correlation of the Interpolated Data 

The deterministic bivariate polynomial used in the interpolation 
introduces bias into the correlation estimation. Such bias is concen- 
trated at the scale of the gage spacing, approximately 1 km, because the 
interpolation is applied to clusters of three proximal gages. The spatial 
extent of this bias can be seen clearly by examining the interpolated 
field resulting from a 30 mm pulse of rainfall at gage 29 as shown in the 
upper portion of Figure 7.3.3. In this case at least, the "smearing" of 
the impulse falls below 10% of the impulse strength at about 2.5 km. The 
effect of interpolation on the correlation structure is shown in the lower 
portion of Figure 7.3.3 where the correlation function of the interpolated 
impulsive storm is presented. We see that the bias is contained within 
v * 2.5 km. 


43 



44 


Estimation of the 22 June 1970 Storm Day Spatial Correlation 



0.8 
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Fig, 7.3,2 Estimation of the 24 July 1970 Storm Day Spatial Correlation 








The primary correlation information resides at what is called [Mejia 
and Rodriguez-Iturbe, 1973] the "characteristic correlation distance 
which is the expected distance between two independent randomly chosen 
points within the particular catchment. Using the method of Mejia and 
Rodriguez-Iturbe [1973] and approximating the Walnut Gulch catchment by a 
2:1 rectangle of 154 km 2 its characteristic correlation distance is 
7*0 km. 

In sampling the finite random field for correlation estimation, the 
maximum covariance lag is limited by the dimension of the field, as bias 
is introduced by declining sample size with increasing lag. Studies of 
this problem led to a limit of 6 km for use in parameter estimation. For 
purposes of comparing methods of estimating p(v) we will extend this 
calculation to 10 km* 

Sampling from the interpolated random field (henceforth simply 
referred to as the random field) requires several considerations. The 
first constraint in designing an algorithm to perform this analysis is to 
assure that sampling is confined to the inside of the basin boundary. The 
second constraint is to ensure that each pair of node points in the random 
field is sampled only once. This aspect will be be examined in detail in 
the following sections. The third consideration involves the amount of 
computational time required for a particular scheme. This final aspect 
has no definite rule and must be resolved subjectively. 

Henceforth, we define the "pivot point" as the principal node under 
consideration. The "secondary point" lies a lag distance v km away from 
the pivot point. Only the nodes inside the basin boundary belong to the 
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Walnut Gulch random field. These nodes are the only potential pivot and 
secondary point candidates. All other nodes have been assigned a value of 
-i.O mm. and are excluded from consideration. 

7.3.3 Sampling the Walnut Gulch Random Field for Correlation 

Four techniques to determine the spatial correlation of the random 
field are presented. A node by node technique is presented in 7.3.4, a 
radial sector technique is presented in 7.3.5, a radial sweep technique is 
presented in 7.3.6 and a bidirectional technique is presented in 7.3.7. 
Each algorithm is especially designed with the Walnut Gulch random field 
in mind. 

Each algorithm begins the examination of the interpolated random 
field starting with the node located in the first column and the last row 
of the matrix (southwest corner). Because this node lies outside the 
random field, (i.e. has a point depth of -1.0 mm., the algorithm shifts to 
the next node to the right. The algorithm is designed to scan first from 
west to east along a row before beginning to search for the first node of 
the random field in the next row (from south to north). Nodes that fail 
to pass the logical filter are skipped until the algorithm comes to rest 
at the first node which is a member of the random field. 

The first node of the random field is located in row 5 column 63 of 
the coarse mesh. This node becomes the first “pivot point". Each of the 
remaining 4004 nodes then become "secondary points" depending on the 
particular algorithm. Following the calculations involving all pairs of 
the given pivot point and set of secondary points, the algorithm moves to 
the next node, located to the right of the pivot point. This node becomes 
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the new pivot point. Because the old pivot point and the new pivot point 
(an old secondary point) pair has already been examined, it is necessary 
to exclude the old pivot point from becoming a member of the set of new 
secondary points. The algorithm is designed to scan the random field of 
secondary points beginning with the secondary point to the right of the 
pivot point, continuing along the same row to the last column (eastern 
edge) of the random field. The algorithm then begins an examination of 
the remaining secondary points in the row above (to the north) the pivot 
point, and scans west to east. Depending on the particular technique, the 
details differ a bit, but a row by row examination is completed until the 
set of secondary points (with respect to each pivot point) in the random 
field is exhausted. 

Once again we point out that for large lags, a bias is introduced 
that favors the center of the finite random field. By limiting the 
maximum lag distance the magnitude of this bias can be contained but is 
present at all lags v > 0. This bias arises primarily within a region 
near the catchment boundary which is proportional to the magnitude of v 
The remaining area of the catchment is the preferred domain for correla- 
tion estimation. The estimates in this report are only partially 
restricted to this area, and we attempt to limit the resulting bias by a 
subjective choice of maximum spatial lag. This issue will be discussed 
later in the chapter. 

In summary, the algorithm only examines the field of secondary 
points in the same row and columns to the right of each pivot point and 
then in all columns and rows above the pivot point. Therefore, the 
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algorithm never examines nodes to the left of the pivot point or in rows 
below because these nodes have already been pivot points or else lie 
outside the random field* In this way, we are assured that each pair of 
pivot and secondary points are examined only once. 

7.3.4 Node by Node technique 

One approach to sampling the random field for the spatial correla- 
tion is the node by node technique. The basic approach is to determine 
the estimation at a particular lag by considering the pivot point and each 
of the remaining secondary points in the random field. Certainly this 
approach results in the best estimation of the covariance function; how- 
ever, its obvious disadvantage is the tremendous degree of computational 
effort. 

7.3.5 The Radial Sector Technique 

Another approach to sampling for the spatial correlation is the 
radial sector technique. In this technique, the set of secondary points 
is subdivided into radial sectors which emanate from the pivot point. A 
subset of secondary points lies inside an element of the sector having 
area rAr^Q. The values of the secondary point depths within this area are 
averaged and this single value becomes the secondary point value in the 
covariance summation at a lag distance of r + Ar/2 from the pivot point. 
Unless the incremental angle A0 and the width of the slice at are small, 
the data are significantly smoothed at larger lag distances from the pivot 
point. If these conditions are met however, the required number of calcu- 
lations approaches that of the node to node technique described above. 


50 


7.3.6 The Radial Sweep Technique 

We developed and investigated a technique which we believe is 
unique. At the first pivot point (row 5 column 63), the algorithm extends 
a ray from the pivot point to the node in the last column of the same row 
(eastern edge) of the matrix. The algorithm then determines the exact 
number of secondary points along this ray. Next, the distance separating 
a pivot point-secondary point pair is calculated and rounded up or down to 
the nearest 200 meters. Detrending by the mean is then followed by the 
other calculations necessary to contribute to the appropriate lag distance 
covariance and variance estimate summations. Following this step, another 
ray is extended from the pivot point to the node in the last column of the 
matrix, but one row above the pivot point. The same procedure is followed 
as before. 

For each pivot point in the random field a series of rays is created 
which first sweeps the last column (east side) of the matrix beginning at 
the same row as the pivot point upward to the last column of the top row 
(northeast edge). A series of rays then sweep the first row (north side) 
of the matrix from the second to last column, to the first (east to west) 
and then from the second row, first column of the mesh finally to the row 
above the pivot point (north to south). The algorithm then shifts to the 
node to the right of the pivot point. This point then becomes the new 
pivot point and the process is repeated. 

Because the radial sweep is always less than 180°, duplication of 
pairs is not possible. Furthermore, no smoothing is performed on any of 
the values in the random field. The lag distance between the pivot point 
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and each secondary point is rounded up or rounded down to the nearest 200 
meters* The correlation function determined in this manner is presented 
for the two representative storm days in Figures 7.3.1 and 7.3.2 where it 
can be compared with that from the gage observations. We note as expected 
that the (interpolated) radial sweep estimate is slightly higher than the 
gage estimate (at least for v 6 km); however, the agreement is satisfac- 
tory. 

The computer program that was developed to perform this technique is 
called ALLCORR. FORTRAN and is described in Chapter 12. Despite its advan- 
tage in precision, this approach is considered computationally excessive 
and was abandoned. 

7.3.7 The Bidirectional Technique 

The technique developed and used in this study is called the 
bidirectional technique. This approximate technique is computationally 
fast, and compares reasonably well with the results from the more exact 
radial sweep technique described above. In this approach, a ray is 
extended from the pivot point along the same row to the last column of the 
matrix (west to east). One by one, each pivot-secondary point pair is 
examined and the various calculations necessary for contribution to the 
appropriate covariance and variance estimates are performed. The lag 
distance separating the pair is always known and unnecessary to calculate, 
or round up or round down. Each pivot point in the random field follows 
the same procedure of extending a ray along the same row to the eastern 
edge of the matrix. 

A row by row examination is completed for all pivot points and then a 
similar column by column examination is begun. A ray is extended from the 
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pivot point to the top row of the matrix (south to north). At each lag, 
the pivot and secondary point pair contribute to the same appropriate 
covariance summations begun during the row by row examination. 

The basic algorithmn to determine the covariance at each lag is the 
following. Let Y « y ( i , j ) represent the rainfall depth at the node point 
located in column i and row j of the random field. Let I and J equal the 
total number of columns and rows respectively in the rectangular matrix. 
Provided that neither y(i,j) or y(i+k,j+k) equal -1.0 mm., the covariance 


at lag k is then estimated by 



i I_k 

COVf Y(i, j ) , Y(i+k, j+k) ] - - £ 

J-k 


I 

(y(i,j)-E[Y])(y(i+k,j+k)-E[Y]) 

i=l 

j = l 

(7.3.9) 

for k > 0,0. 2, 0.4 max. 

km. 



where, as before, E[Y] equals the expected value of total rainfall depth 
in the entire random field and n = n(v) which equals the number of 
product pairs at lag v It is important to understand how the spatial 
correlation was estimated. 


p ( v k ) 


I-k J-k 

l l (y(i,j)-E[Y])(y(i+k,j+k)-E[Y]} 

1-1 3 = 1 

I-k J-k 1/2 I-k J-k 1/2 

{ I l [y(i,j)-E[Y]] 2 } { l l [y(i+k, j+k)-E(Y] ] 2 } 

i=l j=l 1*1 j-1 


(7.3.10) 

The correlation function estimated by this approximation is presented 
for the two representative storm days in Figures 7.3.1 and 7.3.2. We note 
that the bidirectional method closely approximates the more exact radial 
sweep method and is an acceptable approximation of the gage correlation at 
least to lags of 6 km. 
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7.4 Sampling for the Variance Function 
7.4.1 Introduction 

The variance function is a measure of the reduction of the point 
variance under local averaging [Vanmarcke, 1983]. In one dimension the 
average over T of Y(t) is Y^(t) or simply Y^. 

VAR(Y t ) = a\ = y(T)<j 2 (7.4.1) 

where 1 

2 

a = variance of Y(t), and 
Y (T) = variance function of Y(t) 

y(T) is dimensionless and has the following properties: 


y(T) 2 0 (7.4.2) 
y(0) « 1 (7.4.3) 
y(-T) = Y C |t | ) = y(T) (7.4.4) 


The variance function y(T) is related to the correlation function p(t) by 
[Vanmarcke, 1983] 


T T 

Y (T) = K f f p(t - t ) dt dt 
TOO 

" f / l 1 " t ] P (t) dT 
1 0 1 


(7.4.5) 


Similar characteristics define the variance function y(X].,X2) in 
the two-dimensional plane. 

For isotropic random fields, averaging over the rectangular area 
A = X ^2 gives [Vanmarcke, 1983, p. 242] 
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(7.4.6) 


X 1 X 2 x x 

y (A) = Y (X r X 2 ) = / M 1 * j^X 1 - dX l dX 2 

7.4.2 Sampling the Random Field for the Variance Function 
From the definitions of the variance function 
presented in section 7.4.1, we wish to sample the Walnut Gulch random 
field y(i,j) at discrete lag distances. By definition, 

2 

Y (A)=^£ (7-4.7) 

a 

where a 2 = VAR[Y(x)], the point variance of the total depth random field 

and o 2 equals the variance of Y^, the storm depth locally averaged over 
A. 

a finite element of area A. 

In order to simplify the algorithm design, only symmetrical lag 
distances in the i and j directions are used, creating square elements of 
dimension X^,X2 = L. The algorithm also overlaps these elements in 
the following way. Consider an element (the "first element” here) of area 
A in the random field. The western edge of the element next to, and to 
the right (east) of this element is always 200 meters from the western 
edge of the first element. Similarly, the southern edge of an element 
located to the north of the first element, always lies 200 meters from the 
southern edge of the first element. There is no diagonal overlapping of 
elements. 
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The numerical integration of eq. 7.4.6 for positive lengths only is 
accomplished by simply averaging the point rainfall depth of the random 
field nodes located within the area of element k. Thus 

. X 1 X 2 

WV = rr / / Y(x i» x 2 ) dx ! dx 2 (7.4.8) 

provided that y(i,j) does not equal -1.0 mm., eq. 7.4.8 may be expressed 
for square elements as 

. n+L n+L 

YW ~2 l l Y(i ’ d) (7.4.9) 

(L+l) i=n j=n 

where L=0.0,0.2,0.4,. . . , 6 km. 

In order to simplify notation we will let 

Y A = VW (7.4.10) 

therefore, at a length of L kilometers, the corresponding variance 
function y(A)» y(L^) is defined by 

VAR(Y ) 

y(A) = (7.4.11) 

VAR(Y) 

where as before, VAR(Y) is the variance of the point depth and VAR(Y A ) 
equals the variance of the average over A of the point depth. 

The basic algorithm is similar in structure to the spatial 
correlation function algorithm described in section 7.3. This algorithm 
searches the matrix for the first node of the random field, beginning 
column by column in the last row before starting to search in the next to 
last row, and so forth. At L = 0.0 (A = 0.0 km^), VAR(Y^) equals 
VAR(Y), and the random field is sampled as described in section 7.2. 
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At length L = 0.2 (A = 0.04 km 2 ), the search stops at row 5 column 63 of 
the coarse mesh. This node becomes the primary point (equivalent to the 
pivot point in the spatial correlation algorithm). Three other nodes 
comprise the set of potential secondary points in this first element of 
the random field. The first secondary point is the node located in the 
next column (200 meters to the right of the primary point), the second is 
located in the next row, same column (200 meters to the north) as the 
primary point, and the third is in the row above and in the same column as 
the first secondary point (northwest of the primary point). During the 
summation of eq. 7.4.9, each of the secondary points is passed through the 
logical filter. If any secondary point fails the test, the algorithm 
discontinues the summation. The algorithm then moves to the next node in 
the same row as the first primary point until it locates the second 
primary point and begins the logical examination and integration process 
again. The average depth of the four nodes at L = 0.2 km. becomes the 
depth of this element of A - 0.04 km 2 . 

More elements are created along the same row, and then the algo- 
rithm shifts to the row immediately above this one (200 meters to the 
north) and continues the process as before column by column (west to 
east). The algorithm moves row by row in this fashion until the random 
field is exhaused of elements of this size area. Next, the variance of 
the element depth is calculated and subsequently, the value of the 
variance function for elements of this area. 

The algorithm then increases the element size to L * 0.4 km. (A = 
0.16 km 2 ). For each element in the random field, there must be one 
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primary point and 8 secondary points. Again, the algorithm searches for 
the first primary point which is located in row 5 column 63 of the coarse 
mesh. 

The elements are always square in shape, and the size is increased 
in increments of 0.2 km of length during each scan of the random field for 
the variance function at this size of element. Ultimately, the maximum 
length was carried out to 6 km. (A * 36.0 km^). An element of this size 
requires the primary point and 960 secondary points. At this length, 

(L « 6.0 km), there are about 100 elements in the random field, and the 
algorithm is complete. 

In order to further clarify the algorithm, consider a random field 
of dimension I x J. The average depth of a single element Y A is 
described by eq. 7.4.9. The expected value of element depth E(Y^) is 
then 


-i- f 


A k=l 




(7.4.12) 


where n equals the number of elements of area A in the random field. The 
A 

variance of the depth of the elements of area A is thus 

n A 

VAR(Y>-iqI <- E 2 (Y a ) (7.4.13) 

A A k=l \ 

The variance function y(A) at this lag is described by eq. 7.4.11. 

7.4.3 Observations about Sampling for the Variance Function 

During the course of the storm day analysis described in Chapter 10, 
we observed that the variance function often rose to values greater than 
one at small element areas before declining and approaching the zero 
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asymptote for large areas. This behavior was unexpected in light of the 
theoretical definition of the variance function. 

On closer examination, we deduce from the following example, that 
such an occurrence is possible. Consider the small random field in 
Figure 7.4.1 composed of four elements at lag 1 and nine nodes. 


*3 



Fig. 7.4.1 A Simple Illustrative Grid Mesh 


Let X = E(Y) be the average node depth 

X x + x 2 + *3 + x 4 + x 5 + x 6 + x 7 + x 8 + x 9 (7.4.14) 

X “ " ~ ~ 


let X « E(Y^) be the average of the element averages 



(7.4.15) 
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From these expressions we are able to solve for VAR(Y) and VAR(Y A ). 
In order for the variance function to assume a value greater than one, 
VAR(Y a ) must be greater in value that VAR(Y) . This will occur whenever 
a > b where 


a = 


17,392X^ + 2 > 812 < x 2 + x 6 + x 8 } 

+ 350( Xl x 3 + Xl x 7 + Xl x 9 + x 3 x y + x 3 x 9 + x y x 9 ) 

+ 188 < x iV X 2 X 3 + X 2 X 7 + X 2 X 9 + X l V X 3 V 

+ 188(x 6 x ?+ x 6 x 9+ Xl x 8+ x 3 x 8+ x ? x 8+ x^) 


(7.4.16) 


and 


b - 833 (x 3 + x 3 + x 7 + x 9 ) + 748)x 2 x 5 + x 5 x & + x 5 x 8 ) 


+ 136(x 3 x 5 + x 3 x 5 +x 5 x 7 + x^Xg ) 


+ 136(x 2 x 6+ x 2 x 8+ x,x 8 ) 


(7.4.17) 


We should remember that for computational economy the variance 
function is developed here for square areas. In applying the definition 
to oddly-shaped catchments such as Walnut Gulch there will be "uncovered 
area" near the catchment boundaries that results in a biased estimate of 
y(A) (see Vanmarcke [1983, p. 254]). 
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CHAPTER 8 


Storm Day Observations: Sampling from the Fine Grid Mesh Random Field 

8.1 Introduction 

The spatial distribution of rainfall is of great interest in surface 
hydrology and is the central objective of this study. It will dictate the 
degree of local surface flooding, infiltration and available moisture for 
evaporation. 

Expressed as a fraction, the spatial distribution of rainfall depth 
is described by the wetted fraction of catchment area 

A cw (*>y) (8.1.1) 

A 

c 

where A is the catchment area, and A is the wetted catchment area. 

cw 

Of first order interest is the fraction of total area not wetted by 
the precipitation event, i.e. the dry fraction. The dry fraction of total 
area is expressed by 



c 


where A^ is the dry catchment area. 

Following testing with the coarse mesh grid (200 meter resolution), a 
fine grid mesh was adopted for this aspect of the study. As discussed in 
Chapter 6, the resolution of the fine mesh is 100 meters. The fine mesh 
random field (nodes inside the limit of the watershed) is composed of 
15,905 nodes. The following sections describe the techniques used to 
evaluate equations 8.1.1 and 8.1.2. 
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8.2 Sampling for the Spatial Distribution of Rainstorm Depth 

A computer program called STORMWET . FORTRAN is developed to determine 
the spatial distribution of total storm day depth. The program is 
described in Chapter 12. 

Following the creation of the interpolated total depth surface and 
the implementation of the fine mesh boundary filter, each node is passed 
through the minimum depth filter of y = 0.01 mm described in Chapter 6. 

The basic algorithm begins to search for the first node of the random 
field by starting in the first column, last row of the matrix as is the 
case in sampling for the moments, spatial correlation, and variance 
function. The first node of the random field is located in row 10 column 
127 of the fine mesh matrix. As was the case in the description of the 
variance function algorithm, this node is called the primary point. In 
the analysis of the spatial distribution of total rainfall, the element 

length is a constant 100 meters. 

The algorithm then inspects the 3 secondary points. The first 
secondary point is located in the same row, next column (eastward) to the 
primary point. The second secondary point is located in the prior row, 
same column (to the north) of the primary point. The third secondary 
point is located in the prior row, same column as the first secondary 
point (northeast of the primary point). Provided that each secondary 
point passes the logical filter which examines each in turn, the rainfall 
depth of the primary point and the three secondary points are averaged. 
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This value represents the depth of the first element of area (0.01 
km^). The algorithm then looks to the right of the first primary point 
(same row) until it locates the next member of the random field. 

On completion of the creation of the elements in the first row of the 
random field, the algorithm then moves to the prior row (north) and begins 
the column-by-column creation of the elements along that row. The 
algorithm is complete when all rows of the random field have been examined 
(south to north). In the fine mesh random field, a total of 15,421 
elements are created. 

In order to clarify the scheme, consider a rectangular fine mesh 
matrix of (M x N) dimension. Y is the 1 x k matrix of element depth and 

the depth of the finite element k is given by 

. m+1 m+1 

\“4 [ I y(i,j) * -1 mm (8.2.1) 

i=m j=m 

k = 1,2, ..., 15421 

Next the elements are sorted into groups according to the depth of 
the individual elements after finding the maximum depth among all of the 
elements. This sorting procedure performs the areal integration. The 
elements are sorted into groups of elements by integer millimeter depths 
and then the algorithmn divides the number of elements in each group by 

the total number of elements in the basin. Two groups receive special 

treatment. The first includes all the elements with a depth equal to zero 
mm. These elements represent all the "dry" elements. The remaining 
elements are all a part of the set of *'wet M elements which have a depth 
greater than zero mm. 
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Because the areal integration is the only means of calculating the 
area within the Walnut Gulch watershed, this procedure is an effective way 
to determine the accuracy of the logical boundary filter* According to 
the Agriculture Research Service, the area of the basin is 150 km^* The 
numerical integration scheme results in an area of 154*21 km^. We 
conclude that the error of 4 km^ is due either to inaccuracies of the 
base map watershed boundary provided by the ARS, or to approximations 
introduced by the numerical boundary* 

8*3 Sensitivity Analysis of the Sampling for the Spatial Distribution of 

Total Rainfall Depth 

In chapter 6, we described the minimum depth filter through which all 
the nodes in the random field were passed prior to any analysis. This 
filter assigns a depth of 0.0 mm to any node with a value less than or 
equal to 0.01 mm total rainfall depth. Certainly, 0.01 mm is at the 
extreme lower limit of rainfall measurement and is much less than the 0.01 
inch resolution of the tipping bucket gage. 

The level of this filter has an impact on the estimate of the 
fraction of basin area that remains dry during a storm day. Furthermore, 
the resolution of the mesh also plays a part as mentioned in the 
preceding section. The mesh resolution also has a small effect on the 
estimated spatial distribution of storm area wetted to depths greater than 
1.0 mm, but not enough to be of any consequence. 

In order to investigate these sensitivities, we examined the dry 
fraction of total area A c d for the 22 June 1970 and 24 July 1970 
representative storm days. Tests were conducted using combinations of 
four differently sized finite elements and four minimum depth filters. 
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The first element size tested is a square element from the coarse 
mesh having an area of 40,000 m^ or 0.04 km^. This element depth is 
the average depth of the four nodes located at the corner of each of the 
elements. The second element size tested is a triangular shaped element 
also from the coarse mesh. Each pair of triangular elements is a single 
coarse mesh square element divided in half. Each of these elements has an 
area of 0.02 km^. The depth of each element is the average of the node 
depths at the vertices of the triangle. 

The third element size tested is the fine mesh square element 
described in Section 8.2. The area of each of these elements is 0.01 
km^, and the depth of the element is the average depth of the four nodes 
at its corners. The fourth element size tested is a triangular element. 
Two of these elements come from each of the square fine mesh elements. As 
is the case for the coarse mesh triangular elements, the element depth is 
the average depth of the nodes at the vertices of each triangle. The area 
of these elements equals 0.005 km^. 

Four minimum depth filters are examined. The first is the 0.01 mm 
filter previously described, the others are 0.1 mm, 0.05 mm, and zero. 

The results of this analysis are presented in Table 8.3.1 and Table 
8.3.2 for the 22 June 1970 and the 24 July 1970 storm days. 
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Table 8.3.1 


Sensitivity of A C( j to Minimum Depth Filter 
and Finite Element Dimension 



Storm Day 22 June 1970 

Element Area (km 2 ) 


Filter (mm) 

0.04 

0.02 

0.01 

0.005 

< 0.1 

0.783 

0.788 

0.798 

0.800 

<_ 0.05 

0.754 

0.759 

0.772 

0.774 

< 0.01 

0.692 

0.698 

0.714 

0.718 

0.0 

0.497 

0.508 

0.535 

0.541 


Table 8.3.2 

Sensitivity of A cc j to Minimum Depth Filter 
and Finite Element Area Dimension 
Storm Day 24 July 1970 

Element Area (km 2 ) 


Filter (mm) 

0.04 

0.02 

0.01 

0.005 

<0.1 

0.147 

0.153 

0.159 

0.162 

<0.05 

0.138 

0.143 

0.149 

0.151 

<0.01 

0.109 

0.115 

0.122 

0.126 

0.0 

0.092 

0.098 

0.105 

0.109 


Table 8.3.3 shows the sensitivity of the estimated storm day dry 

catchment area with respect to the dimension of the finite element area 

size for each of the minimum depth filters. ^(A = 0.005 km 2 ) equals 

2 

the dry catchment area as estimated by using the 0.005 km finite element. 

A (A = 0.04 km 2 ) represents the estimated dry catchment area from using 
cd 
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2 

0.04 km finite element. The dimensionless ratio of the former divided by 
the latter is presented in this table for each minimum depth filter. 

Table 8.3.3 


^cd 

Sensitivity to Finite 

Element Dimension 

Filter (mm) 

A cd (A =■ 0.005 

km^)/A C( i (A - 0.04 km^) 


22 June 1970 

24 July 1970 

<0.1 

1.02 

1.10 

<0.05 

1.03 

1.04 

<0.01 

1.04 

1.16 

0.0 

1.09 

1.18 


Table 8.3.4 illustrates the sensitivity of A^ with respect to the 
magnitude of the minimum depth filter, A ^ (< 0.01) equals the estimated 
dry catchment area in each storm day when using this filter. A^ (0.0 ram) 
equals the estimated dry catchment area from using absolute zero as the 
cutoff. The dimensionless ratio of the former divided by the latter is 
presented for the two storm days. 

Table 8.3.4 

A c d Sensitivity to Minimum Depth Filter 

Element Area (km 2 ) A cc j( 0«01 mm)/A cc j (0.0 mm) 

22 June 1970 24 July 1970 


0.04 

1.39 

1.18 

0.02 

1.37 

1.17 

0.01 

1.33 

1.16 

0.005 

1.33 

1.16 
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These results suggest that the sensitivity of A cc j is storm day 
dependent* For the “sparse’* 22 June 1970 storm day, A C( j is most 
strongly influenced by the magnitude of the minimum depth filter* On the 
other hand, we see that there is little variation with the magnitude of 
the filter or with the size of the element for the 24 July 1970 storm 
day. 
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CHAPTER 9 


Storm Day Data Processing Computer Programs 

9.1 Storm Day Data Processing 

There are several steps required to process a single storm day's 
station observation data. This chapter outlines the procedures and the 
computer programs necessary to execute the process from start to finish. 
Details concerning file manipulation, linking with the numerical and 
graphical package libraries will be discussed in Chapter 12. 

Following the implementation of the computer program entitled 
COORD. FORTRAN, the processing of a single storm day is ready to begin. 

9.1.1 STRMSORT. FORTRAN 

The first program to be executed during a single storm day processing 
is called STRMSORT. FORTRAN. The purpose of this computer code is to 
gather together the 93 station observations for a single storm day from 
one of several files (depending on the year) and place them into a single 
file for reading. 

9.1.2 STORMDAY. FORTRAN 

The second computer program to be implemented is called 
STORMDAY. FORTRAN. This program accomplishes all of the coarse mesh 
computational tasks outlined in Chapter 7. First, STORMDAY. FORTRAN reads 
the file containing the 93 station observations for this storm day, 
created by STRMSORT. FORTRAN. The code then calculates the first two 
moments of the the station observations. Next, the coarse mesh total 
rainfall depth surface is created by the bivariate surface interpolator, 
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after which, the numerical boundary filter is imposed. Following the 
passing of the random field through the minimum depth filter, The first 
three moments of the random field are determined. This step is followed 
by the calculations required to determine the spatial 
correlation and the variance function. These steps are the last 
computations performed by this program. 

The next portion of STORMDAY. FORTRAN involves graphics preparation 
and writing the computational results to a file. The first step is the 
implementation of two special filters used solely for the graphical 
presentation of the results. The first filter creates the watershed 
boundary outline, and the second filter assures that the zero depth 
isohyet will be drawn. Next, the program writes the first two moments, 
the coefficient of skewness, the spatial correlation and the variance 
function computational results to a file. 

STORMDAY .FORTRAN then begins the graphics routines. These result in 
a single plot file which contains: the storm day total depth isohyet map; 
the spatial correlation plot and the variance function plot. 

9.1.3 STORMWET .FORTRAN 

The third program to be executed during a single storm day processing 
is called STORMWET . FORTRAN . The sole purpose of this code is to determine 
the spatial distribution of total rainfall depth in the random field. 
STORMWET. FORTRAN is the only program which creates and samples from the 
fine mesh surface as described in Chapter 8. 

STORMWET . FORTRAN first reads in the 93 station observations from the 
file created by STRMSORT. FORTRAN. Next, the fine mesh total depth surface 
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is created by the bivariate interpolator followed by the numerical basin 
boundary filter. The random field is then passed through the minimum 
depth filter, followed by Che creation of the 0.01 km^ finite total 
depth elements of the random field. 

The code then screens all the total depth elements in order to find 
the element with the greatest depth. Next, the elements are sorted 
according to the element’s value, and that depth is changed from a real 
number to an integer value. There is now a group of elements with values 
exactly equal to zero, a group of elements with depth greater than zero, 
and groups of elements with various depths ranging from 0 to 1 mm at one 
extreme to the group ranging from 0 to the maximum among all the elements 
in the random field at the other extreme. The total number of elements in 
each group is divided by the total number of elements possible in the 
random field and subtracted from 1.0. This value constitutes the fraction 
which results in the spatial distribution of total rainfall depth within 
the basin. These results are then written to a file. 

9.1.4 TABLE. FORTRAN 

The fourth and final program to be executed during a single storm day 
processing is called TABLE . FORTRAN . The purpose of this code is to merge 
the file created by STORMDAY. FORTRAN with the file created by 
STORMWET. FORTRAN. TABLE . FORTRAN first reads in these two files and then 
writes these combined results to two different files. One file results in 
a data table suitable for presentation and the second contains all the 
same data but formatted into a condensed version. The first file may 
be then printed by the analyst should he so chose. The second file is 
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transferred by the analyst (not computer) to another file which is an 
archive file. This archive file is a single year of storm day processing 
results and will be discussed in Chapter 10. 

9.1.5 Further comments about storm day data processing 

Depending on the particular storm day, the total processing time 
requires between 20 and 30 central processor unit minutes to complete. 

The most time consumming aspect of the procedure is the creation of the 
isohyet plot by the graphics package, followed by the calculations 
necessary to determine the variance function. Both of these routines are 
part of the STORMDAY. FORTRAN computer program. The execution time by 
STORMWET. FORTRAN is completely dependent on the magnitude of the maximum 
depth element in the random field. During the course of this study, storm 
day data processing was especially hindered by as yet unresolved bugs in 
the proprietary graphics package. These include the necessity to 
"restart" the execution of the STORMDAY. FORTRAN program when the graphics 
routines are drawing the watershed boundary in the isohyet plot. Also, if 
the depth of the random field has fairly significant gradients (or perhaps 
for some other reason), the graphics package will enter what appears to be 
an infinite loop if the contour interval is "too small”. Because of these 
two problems, it is unfortunately not possible to execute a series of 
storm day processings without user intervention. 

Initially, BALANCE. FORTRAN yields 431 storm days for the eight summer 
seasons. The graphics package invoked during the execution of the 
STORMDAY . FORTRAN program refused to complete the isohyet plots of three of 
these. The 93 station observation input file for each of these days 
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(created by STRMSORT. FORTRAN) was examined and we found that for each, 
only one or two raingages had a total depth of 1 mm. These three storm 
days were subsequently rejected and so finally a total of 428 storm days 
were successfully processed. 

The processing results of the 22 June 1970 and 24 July 1970 storm 

days are presented in Figs. 9.1.1 and 9.1.2. and in Tables 9.1.1 and 

9.1.2. The spatial distribution of total storm depth for each of these 

two storm days is illustrated in Figs. 9.1.3 and 9.1.4 respectively. 

These plots are from information presented in Tables 9.1.1 and 9.1.2. 

The complete results of the 428 storm day spatial analyses are 

presented in the two volume set by Fennessey et al. [1986]. Presented 

are: total depth isohyets at 2 mm contour intervals, the moments of point 

depth, A /A , A /A , the spatial correlation, the variance function and 
cn c cw c 

the spatial distribution of total storm depth. 
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Table 9.1.1 


Storm Day June 22 1370 


Dry Fraction of Total Basin Area: (Acd/Ac) 0-7H 

Wetted Fraction of Total Basin Area: (Acw/Ac) =0 . 286 


Expected Value of Point Depth (mm.): E (Y) = 0.270 

Variance of Point Depth (mm. sq.): Var (Y) = 0.771 

Coef . of Skewness of Point Depth: S.C. (Y) - 1.386 


Spatial Distribution 
of Total Storm Depth 
y(mm.) Acw/Ac (Y>y) 


Spatial Correlation 
v (km.) rho(v) 


Variance Function 
A (km. sq .) Gamma (A) 


1 0.070 0.0 

’ 2 0.050 0.2 

3 0.031 0-1 

1 0.017 0.6 

5 0.008 0.8 

6 0.001 1.0 

7 0.000 1.2 

8 0.000 1.1 

1.6 

1.8 

2.0 

2.2 

2.1 

2.6 

2.8 

3.0 
3-2 
3-1 
3-6 
3-8 

1.0 
1.2 
1.1 
1.6 
1.8 

5.0 
5.2 

5.1 
5-6 

5- 8 

6 - 0 


1.000 

0.00 

1.000 

0.976 

0.01 

0.958 

0.917 

0.16 

0.896 

0.835 

0.36 

0.818 

0.710 

0.61 

0.731 

0.613 

1.00 

0.651 

0.551 

1.11 

0.580 

0.170 

1.96 

0.513 

0.102 

2.56 

0.152 

0.318 

3.21 

0.396 

0.306 

1.00 

0.311 

0.268 

1.81 

0.293 

0.231 

5.76 

0 .211 

0.132 

6-76 

0.198 

0.153 

7- 81 

0.156 

0.116 

3.00 

0.120 

0.081 

10.21 

0.093 

C .052 

11.56 

0.071 

0.027 

12.96 

0.055 

0.011 

• 11.11 

0.010 

0.001 

18.00 

0.021 

-.005 

17 . 61 

0.010 

-.008 

19-36 

0.006 

-.012 

21.16 

0.001 

-.019 

23.01 

0.001 

-.029 

25-00 

0.003 

-.038 

27.01 

0.002 

- . 016 

29.16 

0.001 

-.051 

31-36 

0.001 

-.066 

33-61 

0.000 

-.085 

36-00 

0.000 
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Table 9.1.2 


Storm Day July 24 1970 


Dry Fraction of Total Basin Area: (Acd/Ac) =0 . 122 


Wetted Fraction of 

Tota 1 

Basin Area: (Acw/Ac) =0 . S 7 S 

Expected 

Value of 

Po i nr 

Depth (mm.) : E (Y) * 

7-969 

Var i ance 

of Point 

Depth 

(mm. sq .) : Var (Y) ■ 

48-831 

Coef. of 

Skewness 

of Point Depth: S.C.(Y) = 

0.549 


Spat i a 1 D i str i but i on 
of Total Storm Depth 
y (mm.) Acw/Ac (Y>y) 

Spat i a 1 Cor re 1 at i on 
v(km.) rho(v) 

4 

Var i ance 
A (km.sq .) 

i 

0.736 

0.0 

1.000 

0.00 

- 2 • 

0.690 

0.2 

0-993 

0.04 

3 

0.654 

0.4 

0-575 

0. 16 

4 

0.627 

0.6 

0.948 

c.36 

5 

0-602 

0.8 

0.914 

0.64 

6 

0-575 

1.0 

0.876 

1.00 

7 

0-521 

1.2 

0-835 

1.44 

8 

0-466 

1.4 

C.793 

1.96 

9 

0.420 

1.6 

0.752 

2.56 

10 

0.378 

1.8 

0.712 

3-24 

ll 

0-343 

2.0 

0.673 

4.00 

12 

0.309 

2.2 

0-635 

4 . 84 

13 

0-275 

2.4 

0.600 

5-76 

14 

0-239 

2.6 

0.566 

6-76 

15 

0.198 

2.8 

0.533 

7-84 

16 

0-159 

3.0 

0.499 

9.00 

17 

0.119 

3.2 

0.466 

10.24 

18 

0.092 

3.4 

0.431 

11-56 

19 

0.063 

3.6 

0.396 

12.96 

20 

0.042 

3.8 

0.360 

14.44 

21 

0.033 

4.0 

0.325 

16.00 

22 

0.024 

4.2 

0.292 

17-64 

23 

0.017 

4.4 

0.261 

19-36 

24 

0.014 

4 -6 

0.234 

21.16 

25 

0.012 

4.8 

0.209 

23-04 

26 

0.010 

5-0 

0.185 

25.00 

27 

0.008 

5-2 

0. 164 

27.04 

28 

0.006 

5-1* 

0.142 

29- 16 

29 

0.004 

5-6 

0.121 

31.36 

30 

0.003 

5-8 

0.099 

33-64 

31 

0.001 

6-0 

0.077 

36.00 

32 

0.000 




33 

0.000 





Funct i on 
Gamma (A) 


1.000 

0.997 

0.988 

0.975 

0-957 

0-939 

0.920 

0-899 

0-875 

c.850 

0-825 

0.800 

0-774 

0-747 

0-718 

C.687 

0-655 

0-622 

c.586 

0.51*8 

0.507 

0.463 

0.423 

C-389 

0-354 

0-323 

0.286 

0-245 

0.201 

0.149 

0.088 
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CHAPTER 10 


Data Archive of Storm Day Spatial Analyses 
10.1 The Storm Day Data Archive 

The storm day data archive is a series of eight data files which 
contain the computation results of the processing of each of the 428 storm 
days. Each file contains the results from processing all the storm days 
from a single summer rainy season. This archive is invaluable with 
respect to model parameterization and verification. 

Each of the eight files which comprise the data archive contains the 
series of storm day records for a single summer season. These records are 
a string of the compacted data tables created by TABLE, FORTRAN. 

A computer program entitled FUTURE .FORTRAN is developed to retrieve 
information from the archive. The listing of FUTURE. FORTRAN is in 
Appendix I. This program is a foundation on which the analyst can build. 
Because an analysis of the data may assume many forms , there is no 
" correct” way to use the computer code. Because of this, in its present 
form, the program actually does nothing but provide the analyst with the 
appropriately formatted read statements. The program must be modified by 
the analyst according to the type of analysis desired. 

Because of the size of the archive and the limitations imposed by the 
computer during this study, large common block variables are used by 
FUTURE. FORTRAN which total roughly 240 kilobytes of memory. As a safety 
measure however, .all common block variables are preset to zero by the 
program. A single years* data archive must be placed in a single file. 
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The 1970 archive is entitled arc70.data t the 1971 archive is entitled 


arc71.data>... , and the 1977 archive is entitled arc77.data. Arc70 
must be placed in file50, arc71.data placed in file51, and so forth 
Following modification of the program according to individual needs 
execution of FUTURE. FORTRAN is ready to begin. 


data 


the 



CHAPTER 11 


Computational and Ancillary Library Requirements 

11.1 The Honeywell Multics Operating System 

All data preparation and storm day processing was completed using 
M.I.T.’s Honeywell mainframe computer. Its operating system is Multics. 
This machine is somwhat limited in virtual memory space in comparison with 
more modern computers. The total virtual memory available to the user is 
only 60 K bytes for variables declared in ordinary ’'dimension" declaration 
statements. This limit may be exceeded by using "common" block variable 
statements. The upper limit using common blocks is 245 K bytes. When 
using variables stored in common blocks, the user must be certain to 
preset these variables equal to zero. This is not done by the machine 
following the completion of a single execution. This could prove 
disasterous during an analysis, because the variable values are not equal 
to zero by default at the start of the next execution. 

Data files may be placed in any "device" number ranging from 1 
through 99. Data cannot be stored in File06 or File07 as with any 
computer, but in the case of the Multics system, neither File41 nor File42 
may be used for data storage. 

In comparison with other computer systems, the computational speed of 
the Multics machine is about 10% faster than the Digital Equipment Corp. 
MicroVax II mini-computer, and roughly one fourth the speed of the IBM 
system 370 CMS mainframe. 
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One peculiarity of the Multics system is that all computer code must 
be written in lower case lettering as opposed to all upper case (caps). 

As a consequence, all the computer programs listed in Appendix I are 
written in lower case. The obvious advantage to this system is that 
numerical characters are physically taller than alphabetical characters 


and so confusion is minimized. 


11.2 Numerical Libraries 


Two different numerical algorithm libraries were used during the 
course of this study. The reason for using these libraries is that they 
have been optimized by their authors and are extensively debugged. 

Because they are proprietary however, these are "black, box" routines, 
which is disadvantageous. Another disadvantage is that the user who 
wishes to reproduce the results presented in this aspect of the study is 
unable to should his computer not have access to these libraries. 

The primary library accessed to by several of the programs is the 
I.M.S.L. or International Mathematics and Statistical Library. IMSL is 
probably the most commonly supported numerical algorithm library and is 
presently available for use on even mini-computers such as the DEC 
MicroVax II. The second library accessed to is the N.A.G. or the 
Numerical Algorithm Group. During storm day processing, we use only one 
of the IMSL library routines, the bivariate surface interpolator described 
in Chapter 6. 
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11.3 Graphics 

The sole graphics software used in this study was developed by ISSCO 
Corporation of San Diego, California, The graphics package is called 
DISSPLA. DISSPLA is a very robust graphics package and suits the 
multiple needs of this study. Several federal agencies use DISSPLA, among 
them, The U.S. Army Corps of Engineers and the U.S.G.S. 

DISSPLA has been supported on the Honeywell Mainframe at MIT for 
only about a year. The version is 9.0 and is not the latest available 
from ISSCO at this time. Each of the computer codes with graphics 
routines in them is written with the DISSPLA version 9.0 in mind. These 
programs will successfully execute on systems which support the current 
9.2 version. 

As was mentioned in Chapter 9, the execution of the storm day isohyet 
plot requires the most c.p.u. time to complete. Furthermore, the program 
requires "restarting" when DISSPLA begins to draw the watershed basin 
boundary outine. The package will occasionally plot spurious contours off 
into space or across the face of the isohyet plot. The package also 
appears to enter an infinite loop if the isohyet coutour interval is too 
small on some storm days. There is no warning about this in the way of 
messages or prompts from the software. We have found that if any of the 
programs which plot isohyets remain in the graphics routine portion of the 
program for more than three quarters of an hour, execution should be 
stopped and the contour interval increased. 

DISSPLA requires several files during execution and no data should be 
stored in these files. On the MIT Honeywell Multics, these are file08, 
f ile21 , f ile23, file31, file32, file33, file94, and file95. 
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11 .4 User Links to the Numerical Algorithm and Graphics Libraries 

The easiest way to link to the numerical algorithm and graphical 
libraries is to include them in the user "start-up" exec command file. 

The start up exec is unique to each particular operating system. By 
invoking global link statements in the start up exec, connection with the 
libraries is complete all the time and the user need not write specific 
link statements in the program. For these reasons, there are no links 
written in any of the programs presented in Chapter 12. The user must 
write them into a start up executive file instead. It cannot be 
overemphasized that many of the programs can not be successfully executed 
unless these links are made* 
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CHAPTER 12 


The Computer Codes 

12*1 Introduction 

This chapter presents a brief summary of details about each of the 
computer codes used in this aspect of the study. The hard copies of each 
program are presented in Appendix I. The purpose of this chapter is not 
to provide complete documentation for each program but rather to comment 
about input and output file handling and links to the numerical algorithm 
and graphics libraries. 

All of the computer programs developed are written in the FORTRAN V 
(Fortran 77) computer language. The programs were developed with other 
users in mind, and we feel that a small sacrifice in computational 
efficiency is well worth increased comprehension for the unfamiliar user. 
For this reason, all programs presented here are self-contained and 
external functions and subroutines have been avoided. Therefore, the user 
need not search for the algorithm behind the subroutine call statement. 

12.2 TAPEREAD. FORTRAN 

The purpose of TAPEREAD. FORTRAN is to read the data from the origi- 
nal data tape that was placed in a file. The code skips over all the 
information pertaining to rainfall intensity. 

In its present form, the program uses a single year’s worth of data 
as an input file of the user’s choice. The total number of records in 
this file must be known before execution begins, as the program will 
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prompt the user for it. The program then writes its results to an output 
file of the user’s choice and will prompt for it. 

There are no links to any of the numerical or graphics libraries 
during the execution of this program. 

12.3 SUMMER. FORTRAN 

The purpose of SUMMER. FORTRAN is to retain only those station records 
which belong to the summer rainy season. The program reads in a single 
year’s worth of data from the output file created by TAPERE AD. FORTRAN. 

The program prompts the user for this input file number and the number of 
records in the file. The program also prompts the user for the output 
file number. During execution, the number of records written to the 
output file are totaled and this value is displayed when the run is 
complete. 

The program does not require links to any of the numerical or 
graphics libraries during its execution. 

12.4 DAY. FORTRAN 

The purpose of DAY. FORTRAN is to total the rainfall which fell during 
each 24 hour storm day at each raingage station. The program results in a 
newly created data set. 

In its present form, DAY. FORTRAN uses the output file from 
SUMMER. FORTRAN as its input file. The program prompts the user for this 
input file number and the number of records in the file. The program also 
prompts the user .for an output file number. During execution, the number 
of records written to the output file are totaled and this value is 
displayed when the run is complete. 
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The program does not require links to any of the numerical or 
graphics libraries during its execution* 

12.5 BALANCE . FORTRAN 

The purpose of BALANCE. FORTRAN is to determine the number of 
storm days in the basin during the course of one summer season, and then 
to create new records of zero depth for those gages which recorded no 
rainfall during a storm day. 

The program reads in the individual summer season output files 
created by DAY.FORTRAN as input files. The program prompts the user for 
this input file number and the number of records in the file. The program 
also prompts the user for the output file number. During execution, the 
number of records written to the output file is totaled and this value is 
displayed when the run is complete. 

The BALANCE. FORTRAN program consists of numerous sophisticated logic 
statements as does DAY.FORTRAN. For three of the eight summer seasons, 
the program fails to complete execution. This occurs only near the end of 
the rainy season during the creation of new records for the last raingage 
listed in the input file. This flaw was never resolved but proves to be 
no problem in reality. The program will prompt the user with the line 
number of the input file where failure occurred and similarly, the line 
number of the output file record. The user must inspect the next to last 
gage records in the output file and review the dates of the final storm 
days. These should be either noted or transferred with the editor to 
complete the final raingage’s rainy season record. Using the editor, or 
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some other means, the user must tally the total number of records for 
later processing. 

The program does not require links to any of the numerical or 
graphics libraries during the its execution. 

12.6 COORD. FORTRAN 

The purpose of COORD. FORTRAN is to assign spatial cordinates to each 
station record. The coordinate system is based on a 100 meter ruled mesh 
(fine resolution) on a watershed basin map provided by the ARS. The 
coordinate system is unique to this study. The program also filters out 
any of the station records which do not belong to the final set of 93 
storm day gages. The program reads in the individual summer season output 
files created by BALANCE. FORTRAN as input files. The program prompts the 
user for this input file number and the number of records in the file. 

The program also prompts the user for the output file number. During 
execution, the number of records written to the output file are totaled 
and this value is displayed when the run is complete. 

The program does not require links to any of the numerical or 
graphics libraries during the its execution. 

The eight separate output files created by eight separate executions 
of COORD. FORTRAN are available on tape from the Director of the Parsons 
Laboratory at M.I.T. These data files are called: bal70.data which 
corresponds to the 1970 summer season data file; bal71.data which 
corresponds to the 1971 season, and so forth. 
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12.7 STRMSORT. FORTRAN 


The purpose of STRMSORT. FORTRAN is Co collect Che staCion 
observations for a single stormday from among all the station records in a 
single summer rainy season. The 93 station observations are written to 
output file84 to be used for further processing. 

In order to successfully execute this program, the eight summer 
season output files from COORD. FORTRAN 

(bal70. data, bal71. data,... ,bal77.data) must be placed in file70, 
f ile7 1 , . . . , f ile77 respectively. The program prompts the user for the last 
two digits of the year of the rainy season of interest, and the storm day 
number. 

The program does not require links to any of the numerical or 
graphics libraries during its execution. 

12.8 GAGCORR. FORTRAN 

The purpose of GAGCORR. FORTRAN is Co determine the spatial 
correlation among the 93 station observations for a single storm day. The 
program uses file84 as the input file (the results of one exection of 
STRMSORT. FORTRAN). The output file is written to a file of the user's 
choice. 

The execution of this program requires a link with the DISSPLA 
graphics package, but not to either of the numerical algorithm libraries. 

12.9 ALLCORR. FORTRAN 

The purpose of the ALLCORR. FORTRAN program is to determine the 
spatial correlation of total rainfall depth within the Walnut Gulch coarse 
mesh random field. The technique used is the radial sweep technique. 
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The execution of the program requires file84 as an input file (the 
results of one execution of STRMSORT. FORTRAN) • The output file is 
selected by the user. The user should be cautioned however, because the 
execution of this program can be expensive. The program requires about 30 
minutes of c.p.u. time on the Honeywell Multics mainframe. 

This program requires a link with both the DISSPLA and IMSL 
libraries. 

12.10 STORMDAY. FORTRAN 

The purpose of the STORMDAY. FORTRAN program is to perform all of the 
coarse mesh random field analysis described in Chapter 7 and plot the 
results. The program requires file84 as an input file (results from a 
single storm day execution of STRMSORT. FORTRAN) . The numerical results 
are written to file91. A single plot file containing the plot of the 
total depth isohyet map, the spatial correlation plot and the variance 
function plot are created by the program. 

The execution of STORMDAY. FORTRAN requires links to both the IMSL 
numerical algorithm library and the DISSPLA graphics library. 

12.11 STORMWET . FORTRAN 

The purpose of STORMWET. FORTRAN is to sample the fine mesh Walnut 
Gulch random field as described in Chapter 8. The program requires file84 
as the input file (the results from one execution of STRMSORT. FORTRAN for 
the storm day of interest). The numerical results are written to file93 
as the output file. 

Execution of this program requires a link with the IMSL numerical 
algorithmn library. 
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12.12 TABLE. FORTRAN 


The purpose of TABLE. FORTRAN is to create two data tables for each 
storm day once processing is finished. The program requires file91 and 
file93 (the output files from the execution of S TO RMD AY. FORTRAN and 
STORMWET. FORTRAN, respectively) as input files. Two separate output files 
are created by the program. The first is written to file95 which contains 
a nicely formatted data table, and the second is written to file02 which 
contains a compressed data table. 

Execution of this program requires no links with either the numerical 
algorithm or graphics libraries. 

12.13 FUTURE. FORTRAN 

The purpose of the FUTURE. FORTRAN program is to provide the analyst 
with the properly formatted statements required to successfully read the 
eight storm day archive files. Depending on the needs of the particular 
analysis, the 1970 archive file must be placed into file50, the 1971 
archive file must be placed into file51, and so forth. The program must 
be modified by the analyst depending on what is required because in its 
present form, the program does nothing, and no output files are as yet 
designated. 

The execution of this program does not require any links with the 
numerical or graphics libraries. 
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APPENDIX I 


Computer Program Listings 
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I 


c TAPEREAD. FORTRAN 

c 

c The program reads the data tape provided this study by the ARS of the 
c U.S.D.A. 

c 

c This program was written by Neil M. Fennessey at M.l.T. 

c during the course of his Master's Degree research into the 

c Areal Distribution of Total Rainfall Depth, 

c 

c 

c 

c definition of variables 


c 

c i nput var i abl es 

c 


c 

iwat 

watershed i.d. number 

c 

i gage 

raingage number 

c 

i month 

month 

c 

i day 

day 

c 

iyr 

year 

c 

i sthr 

storm starting hour 

c 

i stmi n 

storm starting minute 

c 

i dur 

storm duration 

c 

catch 

total storm precipitation 


c 

c rainfall intensity variables 

c 

c ibkpt 

c 

c ielptm 

c itmest 

c acmrnfl 

c idpest 

c rainints 

c intscd 

c 
c 

c 

c 

^global ans!77 
c 

print, 'enter the file number the tape dump was written to' 
i nput,nl 

pr int, 'enter the number of records in file\nl 
i nput,n2 

print, 'enter the file number to be written to' 
input,nif 
c 

c read the tape dump records from the file of choice 
c 

do 10 i i=l ,n2 

read (nl ,200) iwat, i gage, i yr , i month, iday,isthr,istmin,i dur , catch, i bkpt 
bkpt*i bkpt 

skip=((bkptA) + *9) 

i sk i p=sk i p 
c 

c skip over the data related to rainfall intensity 
c 

do 20 j-1 , i sk i p 

read (nl , 300) ielptm, i tmest , acmrnf 1 , i dpest , ra i nints, intscd 


break point : number of series of rainfall intensity 

records associated with a particular station record 
elasped time since the beginning of the shower (minutes) 
time estimate code (0 or blank: not estimated, 1: estimated) 
accumulated rainfall (mm. to the nearest tenth) 
depth estimate code (0 or blank: not estimated, 1: estimated) 
rainfall intensity (mm. per hour) 
intensity code (0: not estimated, 1: estimated, 

2: not computed) 
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20 continue 
c 

c write the results to the file of choice 

write (nl*. 100) iwat, igage, iyr , i month, iday, i sthr , i stmi n, 
k=k+l 

i i = ? ski p+i i 
bkpt=0 
sk i p=0 
i ski p=0 

10 conti nue 

100 format (i 2 , i 3 » 3 1 2 , lx , 2 i 2 , lx , i 5 * ^ 6 • 2) 

200 format (i 2 ,i 3 »l x * 3 * 2 »lx, 2 i 2 , lx, i 4, f6*2, i3) 

300 format (4(*4til*^6-2»il,f7*2»i 1)) 

print, 'there were \k, ' records written to file'.nU 
C 

end 


i dur , catch 


SUMMER. FORTRAN 


c 
c 

c This program will take files created by TAPEREAD . FORTRAN 

c and eliminate all station observation shower records which 

c occur in months other than those which belong to the 

c summer rainy season which begins at noon June 1 and 

c ends at noon October 1 

c 

c This program was written by Neil M. Fennessey at M.i.T. 

c during the course of his Master's Degree research into the 

c Areal Distribution of Total Rainfall Depth, 
c 

c 

c 

c definition of variables 

c 

c input variables 

c 

c iwat watershed i.d. number 

c igage ra ingage number 

c i month month 

c iday day 

c iyr year 

c isthr storm starting hour 

c istmin storm starting minute 

c idur storm duration (minutes) 

c catch total storm precipitation (mm.) 

c 

c output variables 

c 

c iwat watershed i.d. number 

c i gag ra ingage number 

c imo month 

c idy day 

c iyear year 

c isthur storm starting hour 

c istrtmin storm starting minute 

c idurat storm duration (minutes) 

c rain total storm precipitation (mm.) 

c 

c 

c 

^global ansi77 

dimension igage (7000) , imonth ( 7000 ) , iday ( 7000 ) 
d i mens ion iyr ( 7000 ) , isthr ( 7000 ) , istmin ( 7000 ) 
dimension idur ( 7000 ) .catch ( 7000 ) 
c 
c 

print, 'enter the master file number to be summer sorted' 
i nput ,n2 

print, 'enter the number of records in file',n2 
i nput.nl 

print, 'enter the file number to be written to' 
i nput ,n5 
c 

print, 'enter last 2 digits of the year of interest' 
i nput,n6 
c 
c 

c this section reads in the walnut gulch data for comparative 
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c 

c 


purposes 


do 10 i i=l,nl 

read (n2,200) iwat, igage (ii).iyr(ii), i month (i i) ♦ iday (i i) , i sthr (i i) , 
&istmin(i i) , idur (i i) , catch (i i) 

10 continue 
c 

200 format (i2,i3»lx*3i2,lx,2i2,lx,i5>f6*2) 
c 

do 20 i i*l, nl 
a=imonth (i i) 

if ((a.ge.6) .and. (a.le.9) .and. (iyr (i i) .eq.n6) ) then 
i gag*igage (i i) 
i year*iyr (i i) 
i mo* i month (i i) 
i dy*iday (i i) 
i sthur*i sthr (i i) 
i strtmi n*i stmi n (i i ) 
idurat*idur (i i) 
rain*catch (i i) 
c 

write (n5, 200) iwat, igag, iyear, imo, idy, isthur, i strtmi n, »durat,rain 
c 

k=k+l 

c 

c October 1 st. shower 

else if ((a.eq. 10) .and. (iday (i i) .eq. 1) .and. (iyr (ii) .eq.nfc) .and. 

6 (i sthr (i i) .1 1. 12)) then 

c . 

write (n5. 200) iwat, igag, iyear, imo, idy, i sthur , i strtmi n, i dur at , ra i n 

k*k+l 

else 

go to 20 
end i f 

20 continue 

300 conti nue 

print, 'there were ; ,k, 3 records wr i tten to f i 1 e ',n5 
end 
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DAY. FORTRAN 

The program creates new station records for each 24 hour storm day 
that occurred during the summer rainy season at Walnut Gulch, Az. 

This program was written by Neil M. Fennessey at K.l.T. 
during the course of his Master's Degree research into the 
Areal Distribution of Total Rainfall Depth. 


definition of variables 


input variables 


iwat 
i gage 
imonth 
iday 
iyr 
i sthr 
i stmi n 
i dur 
catch 


watershed i.d. number 

raingage number 

month 

day 

year 

shower starting hour 
shower starting minute 
shower duration 
total shower precipitation 


program variables 


i sthur 
i stmn 
idurat 
duratmi n 
durathr 
str tmi n 
f rctstmn 
strthr 
totstrhr 
endhr 


shower starting hour 
shower starting minute 
shower duration 
shower duration in minutes 
shower duration in hours 
shower starting minute 

shower starting minute (fraction: str tmi n/&0 .0) 
shower starting hour 

total shower starting time (hour + fraction of an hour) 
shower ending time 


created 
i wa 
igag 
imo 
idy 
i year 
dystrthr 
dyendhr 
pptysday 

ppttoday 

ppt i nts 
pptomoro 

totrai n 
ra i n 


data variables: all these variable are subscripted (0 

watershed i.d. number 

raingage number 

month 

day 

year 

elapsed time in hours that the day begins since Jan. 1,1970 
elapsed time in hours that the day ends since Jan. 1,1970 
rainfall which lasted beyond noon time of today (yesterday's 
leftover precipitation from the final shower 
total precipitation recorded between noon today and noon 
tomorrow 

average shower intensity (shower depth / shower duration) 
rainfall which will last beyond noon today into tomorrow 
(equals pptysday) 
total stormday rainfall (mm.) 
zero (0.0) mm. total rainfall depth 


created day counter 

created variable array subscript 

raw variable array subscript 
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%global ansi 77 


common /varl /iwat (12000) 
common /var2 /i gage (12000) 
common /var3 /imonth (12000) 
common /var3 /iday (12000) 
common /varl* /iyr (12000) 
common /var5 /i sthr (12000) 
common /var6 /i stmi n (12000) 
common /var8 /date (12000) 
common /var9 /idur (12000) 
common /varlO /catch (12000) 
common /varll /rain (12000) 
common /varl2 /totra i n ( 12000) 
common /varl3 /iwa (12000) 
common /varll* /i gag (12000) 
common /varl5 /i mo (12000) 
common /varlfc /idy (12000) 
common /varl7 /i year (12000) 
common /varl8 /durathr (12000) 
common /varl9 /totstr hr ( 12000) 
common /var20 /endhr (12000) 


print, 'enter file number to be split into 21* hour blocks' 
i nput.nl 

print, 'enter the number of records in file',nl 
i nput,n2 

print, 'enter final file number to be written to' 
i nput.nl* 


VcVcVcVcVcVcVcVcVrVcjfcV: Vc Vr Vc VcVc* Vc Vc * Vc * Vc VcVc Vc Vc Vc Vc Vc * Vc Vc VcVcVc Vc * Vc Vc Vc * * Vc Vc Vc Vc Vc Vc * * Vc * Vc 


Vc Vc Vc Vc Vc Vc Vc Vc Vc Vc Vc Vc Vc Vc 


preset the common block variables to zero 

VcVc<fV:sVV:VcVc*V:VrVcVrVrVcVcVcVcV:V:VffVcVcVcVcVcVcV{VcVcVcVcVcVcVcVcVcVc;VVcVc 


Vc Vc Vc Vc Vc Vc Vc Vc Vc Vc Vc 


do 50 i = l , 12000 
iwat (i)=0.0 
i gage (i) -0.0 
imonth (i) *0.0 
iday (i)=0.0 
iyr (i)*0.0 
i sthr (i) *0.0 
i stmi n (i) *0.0 
date(O=0.0 
idur (i) *0.0 
catch (i) =0.0 
ra i n ( i ) =0 .0 
totrai n (i) *0.0 
iwa (i) =0.0 
i gag (i ) =0.0 
i mo ( i ) =0 . 0 
idy (i) =0.0 
iyear (i) *0.0 
durathr (i ) *0.0 
totstrhr (i) *0.0 
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50 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c 

10 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 


endhr (i ) =0.0 
conti nue 


i'i it it * * 5’:* it it * it it it ;'c it * : 


it ;’c ;'{ it 5 ? ; >'c * it it it it it it : 


’tit it it it ir, 


it it it it it it it it it it it it it it it it it it it it it it it it it 


this section reads in the origional walnut gulch data 
from the i nput file 


it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it ft i: i; it it it 


ititit ititit it it it it it it it it it it it it it it it it 


do 10 i i=l,n2 

read (nl , 100) iwat (i i ) , i gage (i i ) , i year (i i ) , i month ( i i ) , i day ( i i ) f i s thr ( i i ) , 
Si stmi n (i i) f idur (i i) , catch (i i) 
format (i2,i3'lx»3i2 t lx,2i2,lx,i5«f6>2) 
durami n=idur (i i ) 
durathr (i i) =durami n/60.0 
strtmi n=i stmi n (i i) 
f rets tmn=strtmi n/60.0 
strthr=i sthr (i i) 
tots tr hr (i i) =str thr+f rets tmn 
endhr (i i) =totstrhr (i i)+durathr (i i) 

continue 


iciiitititiiititititiiitititiiititititititititititititititititiiitititititititit 


it it it it it it it it it it it it it it it it it it it it it it ititit ititit itit 


initialize the counters 

ititititititititiiitititititititititititititititititititititititiiiiititititititititititititititititititititititititititititititititititititit 


j=o 

do 30 i i=l,n2 
j=j+l 

this section creates partial shower records; those days in which 
a shower begins before noon time and extends on into the next day 

>VVtV{ft****ykft*********ft**********! r f*5'!5 1 tVk**A>'t5's***ft5V5l!AftA*>l!>V**ft5’t*A*A**j'c***}V**** 

i f ( (tots tr hr (ii) .It. 12.) .and. 

6 (endhr (i i) .ge. 12) ) then 

ppti nts*catch (i i) /durathr (i i) 
ppttoday»( (12.0-totstrhr (i i) ) *ppti nts) 
pptomoro= ( (endhr (i i) -12.0) *pptints) 
pptysday=pptomoro 


* it **************** it it it it it it it it it it it it it it it it it it it it * * it it it it it it it it it i: it i: it it it it it it it it it it it it it it it it it it it 


Check to see if the partial shower begins on the last day of the 
month and continues on into the first day of the next month 

iiitititititititititititititititititicitititititititititititititititititititititititititititititititititititititititititititititititicitititit 
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JUNE-JULY 


f ((imonth(i i) .eq.7) -and. (i day (i i) .eq.l)) then 
i mo ( j ) =6 
idy (j ) =30 
iwa (j) = iwat (i i) 
igag(j) = igage(i i) 
iyr (j) = i year (i i) 
rain (j) *ppttoday 

date (j) * (i yr (j) * 10000 ) + (imo (j) *100)+ idy (j) 


j-j+1 
i mo (j ) “7 
i dy ( j ) * 1 
iwa (j)=*iwat (i i) 
i gag (j)*i gage (i i) 
i yr (j) *i year (i i) 
rain (j) =pptysday 

date (j ) = ( i y r (j ) * 10000) + ( i mo (j ) * 100) + i dy (j ) 
go to 20 


JULY-AUGUST 

else i f ( (imonth (i i) .eq .8) -and . (i day (i i ) .eq . 1) ) then 

i mo ( j ) *7 

idy (j) *31 

iwa (j) = iwat (i i) 

i gag (j) -igage (i i) 

iyr (j) = i year (i i) 

rain(j)=ppttoday 

date (j)- (iyr (j) *10000) + (imo (j)*100)+idy (j) 


j*j + l 

i mo (j ) *8 

idy (j)=l 

iwa (j) =iwat (i i) 

i gag (j) =i gage (i i) 

iyr (j)»iyear (i i) 

rain (j) =pptysday 

da te ( j ) * ( i y r ( j ) * 1 0000) + ( i mo ( j ) * 1 00) + i d y ( j ) 
go to 20 


AUGUST-SEPTEMBER 

else if ((imonth(ii).eq.9) .and. (iday(ii) .eq.l)) then 

i mo ( j ) *8 
idy (j) *31 
iwajj)*iwat (i i) 
igag (j)*igage (i i) 
iyr (j) = iyear (i i) 
rain(j)=ppttoday 

date (j) = (iyr (j) *10000) + (imo (j) *100) +i dy (j) 


igag (j) -igage (i i) 
iyr (j) =i year (i i) 
rain (j) =pptysday 

date (j) 38 (i yr (j) *10000) + (imo (j) *100) +i dy (j) 
c 

go to 20 
c 

c SEPTEMBER-OCTOBER 

c 

else i f ( (i month (i i ) .eq . 10) . and . (i day (i i ) . eq . 1) ) then 
imo (j)=*9 
idy Cj) =30 
i wa (j) =iwat (i i ) 
igag (j) *igage (i i) 
iyr (j) =iyear (i i) 
rai n (j) =ppttoday 

date (j) * (iyr (j) *10000) + (imo (j) *100)+ idy (j) 
c 

go to 20 
c 

end i f 
c 

idy (j)=iday (i i)-l 
imo (j) =i month (i i ) 
iwa (j) =iwat (i i) 
igag (j) -igage (i i) 
iyr (j) *i year (i i) 
rain (j) -ppttoday 

date (j) * (i yr (j) *10000) + ( imo (j) * 100) + i dy (j) 
c 

j-j + 1 

idy (j) * i day (i i) 
imo (j) =i month (i i) 
iwa (j) »iwat (i i ) 
igag (j) “igage (i i) 
iyr (j) ^i year (i i) 
rai n (j) *pptysday 

date (j) * (i yr (j) *10000) + ( imo (j) *100) +i dy (j) 
c 

go to 20 
end i f 
c 

c *********************************************************************** 

c 

c Adress those showers which begin and end before noon of the 

c calendar day's record, and don't occur on the first day of the month 

c 

c *********************************************************************** 

c 

i f ( (tots tr hr (i i) . 1 1 . 12.) .and . 

5 (endhr (i i) . 1 1. 12) .and. 

6 (iday (i i) .ne. 1)) then 

idy (j) * iday (i i) -1 
imo (j) *i month (i i ) 
iwa (j) =iwat (i i) 
igag (j) ®i gage (i i) 
iyr (j) =iyear (i i) 
rai n (j) =catch (i i ) 

date (j) * (i yr (j) *10000) + ( imo (j) *100) +idy (j) 
c 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


c 


c 


go to 20 
end i f 


ft ft ft ft ft ft ft ft ft ft ft * * * * ft * ft * ft * ft ft ft ft ft * ftft ft ft * ft ft ft * * * * * ft ft * * * * * 1 


* * * * * * * ftft ft ft * ft* ft ft ft ft ft ft ft ft ft 


Adress those showers which begin and end before noon 

of the day's record, but do occur on the first day of the month 


****************************************** 


* ft * * * * * * ft * * * * * * * ft * ft ft ft * * ft ft ft * * 


i f ( (tots tr hr (i i ) . 1 1 . 12 .) .and . 

5 (endhr (i i) . 1 1. 12) .and. 

6 (iday (i i) .eq. 1) ) then 


*************************************** 


* * * * * * * * * * * * * * * * ft * ft ft ft ft ft * ft ft ft ft ft 


Check to see if the morning shower begins on the first day of the 
month and, therefore belongs to the last day of the prior month 


*********************************************************************** 


JUNE-JULY 

i f ( (i month (i i ) .eq .7) • and . (iday (i i ) . eq . 1) ) then 
imo (j) =6 
idy (j) *30 
iwa (j) =iwat (i i ) 

•gag (j) *i gage (i i) 
i yr (j) -iyear (i i) 
rain (j) “catch (i i ) 

date (j) * (i yr (j) *10000) + (imo (j) *100)+idy (j) 
go to 20 


JULY-AUGUST 

else i f ( (i month (i i ) . eq . 8) . and . ( i day ( i i ) . eq . 1) ) then 
imo (j) =7 
i dy (j) =3 1 
iwa (j) *iwat (i i) 

• gag (j) = • gage (i i) 
i yr (j) =iyear (i i) 
rain (j) =catch (i i) 

date (j) * (i yr (j) * 10000) + ( i mo (j ) *100) +i dy (j ) 
go to 20 


AUGUST-SEPTEMBER 

else if ( (i month (i i) .eq .9) .and . (iday (i i ) .eq . 1) ) then 
imo (j) *8 
idy (j)*31 
i wa (j) *i wat (i i ) 
igag (j)=igage (i i) 
iyr (j) “iyear (i i) 
rain (j) =catch (i i ) 

date (j*) * (i yr (j) *10000) + (imo (j) *100) + idy (j) 
go to 20 
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c 

c 


SEPTEMBER-OCTOBER 


else if ( (i month (i i ) . eq . 10) .and . (iday (i i ) .eq . 1) ) then 
i mo ( j ) =9 
idy (j) *30 
iwa (j) =iwat (i i) 
igag (j) =i gage (i i) 
i yr (j) =iyear (i i) 
rain (j) *catch (i i) 

date (j) = (i yr (j) *10000) + ( imo (j) *100) +i dy (j) 
go to 20 
end i f 

go to 20 
end i f 


c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


*********************************************************************** 


Adress those showers which begin and end during the storm day: 
after noon time today and before noon time tomorrow 


*********************************************************************** 


i f ( (tots tr hr (i i ) .ge. 12 .) .and . 

& (endhr (i i) -It. 36 • ) ) then 
idy (j)*iday (i i) 
imo (j) *i month (i i) 
iwa (j) »iwat (i i) 
igag(j) = igage(i i) 
i yr (j) “i year (i i) 
rai n (j) =catch (i i) 

date (j) = (i yr (j) *10000) + ( imo (j) *100) +i dy (j) 

go to 20 
end i f 


************************************ 


*** *** ***** ************ : 


********* 


Adress the long duration showers which begin and complete after day's 
end: after noon time today and after noon time tomorrow 


********************************** * * * * * * * **** * ** * * *** * * * *** * * ********** 


i f ( (totstrhr (i i) .ge. 12.) .and. 

& (endhr (i i) .ge.36) ) then 

ppt i nts»catch (i i) /durathr (i i ) 
ppt today* ( (36.0- totstrhr (i i) ) *ppt i nts) 
pptomoro* ( (endhr ( i i ) — 36 - 0) *ppt i nts) 
pptysday*pptomoro 


****************************************** 


: * * * * * * * * * * * * * * * * * * * * * * 


Check to see if the partial shower begins on the last day of the 
month and continues on into the first day of the next month 

*********************************************************************** 
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c 

c 


c 


c 

c 

c 

c 


c 


c 

c 

c 

c 


c 


JUNE-JULY 


if ((imonth(i 1 ) .eq.6) .and. (iday (i i) .eq.30)) then 
i mo ( j ) =6 
idy (j) *30 
iwa (j) = iwat (i i) 
i gag (j) = i gage (i i) 
iyr (j) =i year (i i) 
rain (j) =ppttoday 

date (j) ■ (iyr (j) * 10000 ) + (imo (j) *100)+ idy (j) 


j-j+1 

imo (j)»7 
idy(j)«*l 
iwa (j) “iwat (i i) 
igag(j)-igage(i i) 
iyr (j) *i year (i i) 


rai n (j) *pptysday 

date (j) = (iyr (j) *10000) + (imo (j) *100) + 1 dy (j) 


go to 20 


JULV-AUGUST 

else if ((imonth(ii) .eq.7) -and. (iday(ii) .eq.31)) then 
i mo (j ) =7 
idy (j) *31 
iwa (j) =iwat (i i) 
i gag (j) = i gage (i i) 
iyr (j)=i year (i i) 
rain (j) =ppttoday 

date (j ) = ( i y r ( j ) * 10000) + ( i mo ( j ) * 100) + i dy (j ) 


j-j+1 

imo(j)=8 
i dy (j) =1 
iwa (j) *iwat (i i) 
i gag (j) = igage (i i) 
i yr (j) = i year (i i ) 
rain (j)=pptysday 

da t e ( j ) = ( i y r ( j ) * 1 0000) + ( i mo ( j ) * 1 00) + 1 d y ( j ) 

go to 20 


AUGUST-SEPTEMBER 

else if ((imonth (i i) .eq.8) -and. (iday (i i) .eq.31)) then 
i mo ( j ) =8 
idy (j ) =3 1 
iwa (j) = iwat (i i) 
i gag (j) = i gage (i i) 
iyr (j)=iyear (i i) 
rain (j)=ppttoday 

date (j) = (iyr (j) *10000) + (imo ( j ) *100) +i dy (j) 

j-j + 1 

imo (j)=9 
idy (j)=l 
iwa (j) = iwat (i i ) 
igag (j) -i gage (i i) 
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iyr (j)-iyear (i i) 
rain (j)=pptysday 

da te (j ) * ( i y r (j ) * 10000) + ( i mo ( j ) * 100) + 1 dy ( j ) 
c 

go to 20 
c 

c SEPTEMBER-OCTOBER 

c 

else i f ( (i month ( i i ) . eq • 10) . and . (i day ( i i ) . eq • 1) ) then 
imo (j) =9 
i dy (j) =30 
iwa (j) =iwat (i i) 
igag(j) = igage(i i) 
iyr (j) *i year (i i) 
ra i n (j) =ppttoday 

date (j) = (iyr (j) *10000) + (imo (j) *100) +i dy (j) 
c 

go to 20 
c 

end i f 


c 


c 


c 


c 

20 

c 

c 

30 

c 

c 

c 

c 

c 

c 

c 

c 


i dy (j) =i day (i i) 
imo (j) =imonth (i i) 
i wa (j) =i wat (i i ) 
igag(j) = igage(i i) 
i y r (j) *i year (i i) 

ra i n (j) =ppttoday , v 

date (j) - (iyr (j) *10000) + (imo (j) *100)+idy 


j=j + l 

idy (j) = iday (i i)+l 
i mo (j) *i month (i i ) 
iwa (j) =lwat (i i) 
i gag (j) =i gage (i i) 
iyr (j) =iyear (i i) 
rai n (j) =pptomoro 

date (j)* (iyr (j) *10000) + (imo (j) *100)+idy (j) 

go to 20 
end i f 


cont i nue 


continue 

*********************************************************************** 


Total the total rainfall for the storm day and write the results 
to the file of choice 


*************************************** 


A A A A A A A A * A A A A A A A A A A A A ft A A A ft ft ft A 


• “j 
j-0 


c 

c 

c 


do 1*0 j-1 » i 


*********************************************************************** 
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c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c » 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


there were ten total records created for this day 


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


i f ( (date (j) .eq.date (j+9) ) .and. 

& (igag (j) .eq. igag (j+9) ) ) then 
k=k+ 1 

totra i n (k) =ra i n (j ) +ra i n (j + 1) +r a i n (j+2) +ra i n (j+3) +ra i n (j+4) +ra i n (j+5) + 
&rai n (j+6) +ra i n (j+7) +rai n (j+8) +ra i n (j+9) 
write (ni*, 200) iwa (j) , i gag (j) , i yr (j) , imo (j) , idy (j) , totra i n (k) 
j=j+9 


* * * * * ***************** * * * * * * * * * * * * * * * * * * * * 5’; * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


there were nine total records created for this day 


************ * ******** * * * * * * * * * * * * * * * * 


*****; 


* * * * * * * * * * * * * * 3V * * * * * * * * * * * * 


else if ((date (j) .eq .date (j+8) ) .and. 

6 (igag (j) .eq. igag (j+8) ) ) then 
k=k+l 

totra i n (k) «ra i n (j) +ra i n (j+1) +ra i n (j+2) +ra i n (j+3) +ra i n (j+4) +ra i n (j+5) + 
train (j+6) +rai n (j+7) +ra i n (j+8) 

write (nl»,200) iwa (j) , i gag (j) , iyr (j) , imo (j) , idy (j) , totra i n (k) 
j-j+8 


*********************************************************************** 


there were eight total records created for this day 

**************************** * * * * * * * * * * * * * * * * * * * * * * * * 3V * * * * * * * * * * * * * * * * * 


else i f ( (date (j) .eq .date (j+7) ) .and . 

6 (igag (j) .eq. igag (j+7) ) ) then 
k*k+ 1 

totra i n (k) =ra i n (j) +ra i n (j + 1) +ra i n (j+2) +ra i n (j+3) +ra i n (j+4) +ra i n (j+5) + 
fcrain (j+6)+rai n (j+7) 

wr i te (n4, 200) iwa (j) , i gag (j) , i yr (j) , imo (j) . idy ( j ) t totra i n (k) 
j=j+7 


*********************************************************************** 


there were seven total records created for this day 

*********************************************************************** 

else i f ( (date (j) .eq.date (j+6) ) .and. 

6 ( i gag (j) .eq. igag (j+6) ) ) then 
k*k+l 

totra in(k) -rain (j)+ra in (j+1) +rain (j+2)+rain (j+3) +rain (j+4)+rain (j+5) + 
train (j+6) 

write (nl», 200) iwa (j) , igag (j) , iyr (j) , imo(j) , idy (j) , totra i n (k) 
j=j+6 


******************************************************************** 


there were six total records created for this day 
*********************************************************************** 


no 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 


else if ((date(j) .eq .date (j+5) ) .and. 

&(igag(j) .eq. igag (j+5) ) ) then 
k=k+l 

totrai n (k) =ra i n (j) +ra i n (j+1) +ra i n (j+2) +rai n (j+3) +rai n (j+4) +rai n (j+5) 
wr i te (nU , 200) i wa (j) , i gag (j) . i yr (j) , imo (j) , idy (j) , totrai n (k) 

j = j + 5 


ft >’c ft ft ft ft 3 *f * ft ft ft ft it ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


there were five total records created for this day 


*********************************************************************** 


else i f ( (date (j) .eq.date (j+1*) ) .and. 

6 (igag (j) .eq. igag (j+I*) ) ) then 
k=k+l 

totrai n (k) *rai n (j) +ra i n (j + 1) +ra i n (j+2) +ra i n (j+3) +ra i n (j+4) 
write (nl*,200) iwa (j) , i gag (j) , i yr (j) , imo (j) , i dy (j) , totrai n (k) 

j*j+i* 


* ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


ft ft ft ft ft ft ft ‘. 


ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


there were four total records created for this day 


*********************************************************************** 


else i f ( (date (j) .eq.date (j+3) ) .and. 

6 (igag (j) .eq. igag (j+3) ) ) then 
k=k+l 

totra in (k) *rai n (j) +ra i n (j+l)+ra i n (j+2) +ra i n (j+3) 
write(n4,200) iwa(j) ,igag (j) , iyr(j) , imo (j) , idy (j) , totra in(k) 

J-j+3 


********************************* * ***** **' 


ft ft ft ft ft 


ft ft ft ft ft ft ft ft ft ft ft ******** 


there were three total records created for this day 


***** ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


ft ft : 


* * * ft it * * * ft ft : 


* ft ft ft ft ft ft ft ft ft ft 


else i f ( (date (j) .eq.date (j+2) ) .and . 

& (igag (j) .eq. igag (j+2) ) ) then 
k=k+l 

totra in (k) -rai n (j) +rai n (j+1) +ra i n (j+2) 
write (n4, 200) iwa(j) ,igag(j) ,iyr(j) ,imo(j) , i dy (j ) ,totrain(k) 

J-j+2 


**************************************** A****************************** 

there were two total records created for this day 

ft y. * ft ft ft ft * ft ft ft * ft ft ft ft ft * * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

else if ( (date (j) .eq.date (j+1)) .and. 

6 (i gag (j) .eq . i gag (j+1) ) ) then 
k=k+l 

totra in(k)=rain(j)+ra in (j + 1) 

write (n4,200) iwa (j) , igag (j) , iyr (j) , imo (j) , idy (j) , totrai n (k) 
j=j + l 


fiftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftfiftftftftftftftftftftftftftftftftftftftftftic 


ill 


c 

c 

c 

c 

c 


c 

c 


there was one total record created for this day 


*********************************************************************** 


else 

k=k+l 

totrai n (k) -rain (j) 

write (nl», 200) iwa (j) , i gag (j) , i yr (j) , imo (j) , i dy (j) ,totrain(k) 

j-j+1 


end i f 


40 continue 
c 

200 format (i2,i3»lx*3i2,f6*2) 
c 

500 continue 

print, are done, please check file',n4 
print, ; fi le ; ,n4* ' has ',k, ; records in it' 
end 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 


100 


BALANCE. FORTRAN 

The program creates new station records for each of the raingages 
which received no rainfall during each 24 hour storm day created by 
DAY. FORTRAN that occurred during the summer rainy season at 
Walnut Gulch, Az. 

This program was written by Neil M. Fennessey at M. 1 .T. 
during the course of his Master's Degree research into the 
Areal Distribution of Total Rainfall Depth. 


definition of variables 
i nput var i abl es 

iwat watershed i .d. number 

i gage ra ingage number 

i month month 

iday day 

iyr year 

isthr shower starting hour 

istmin shower starting minute 

idur shower duration 

catch total shower precipitation 

output variables 

iwa watershed i .d. number 

igag ra ingage number 

imo month 

idy day 

iyear year 

i i i date date of the storm day 

i i date date of the storm day 

zd storm day rainfall (mm.) 

ra i n zero ra i nf a 1 1 


dimension iwat (6200) , i gage (6200) , i year (6200) , i month (6200) 
dimension iday (6200) ,zd (6200) , i i idate(6200) , i idate(6200) , idate(100) 

print, 'enter the file number to be balanced' 
i nput,n3 
pr i nt 100, n3 
input, n2 

print, 'enter the file number to which the results will be written 
input, nl 

format ( 'enter the number of records in file',i4) 


c 

c 

c 

c 

c 

c 

c 


V? £ 5*c * & i: * * ft ?’c * * * :'c 5*c * * * * * * Vc it * * * * * * ;V >V V: * * * * * * * * * * >’c * * * sfe * tfc * * * * ft ft ft ft ft ft ft ft * ft * :: >: ft ft 

the section reads in the storm data from input file to be balanced 
ftftftftftftftftftftftftftftftftft**********************’^ 


do 140 i=l,n2 


113 



read (n3, 1000) iwat (i) , i gage (i ) , i year (i) , i month (i) , iday (i) ,zd (i) 
140 conti nue 
c 

1000 format (i2, i3* lx»3i2,f6-2) 

2000 format (i2, i3. lx, i6*f6*2) 


c 

c 

c 

c 

c 

c 

c 

c 


20 

10 


ft it ft ft ft ft ft ft ft ft ft ft * ft * ft ft ft ft ft * * * * 


* 


* 


* ft * * * * * * ft * * * * ft * * * * * * * * * * * * ft * * * * * * * * 


examine all the dates in the unbalanced records and compile a list 
of all the different dates for which there were storm days 


5 . <A5 . ?A ^^A^*y f ^****,V*********** ******************************************* 


j*0 
i *0 

do 10 i=l,n2 
j*j + l 

i i idate (j) * (i year (i) *10000) + (i month (i) *100)+ iday (i) 
i idate (i) = (i year (i) *10000) + (i month (i) *100) +i day (i ) 
do 20 k= 1 , j - 1 

d i f f =abs (i i i date (j) - i i i date (k) ) 
i f ( (di ff .eq.0.0) .and. (j .gt . 1) ) then 

j-j-1 

go to 10 
end i f 
conti nue 
conti nue 


c 

c 

c 

c 

c 

c 

c 


50 

40 

55 

45 

c 

c 

c 

c 

c 

c 

c 


ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


sort the storm day dates from the earliest to latest 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft * * * * * * ft ft ft ft ft ft ft . 


ft ft ft ft ft ft ft ft ft ft ft ft ft ft ********* * 


do 1*0 i*l,j 
do 50 k-l.j-1 
a=i i i date (k) 
b=i i i date (k+1) 
if(a.lt.b) then 
i date (k) =a 
idate (k+1) =b 

else 

i i idate (k) =b 
i i idate (k+1) =a 
idate (k) =b 
idate (k+1) =a 
end i f 
continue 
continue 
do 55 k«l,j 
printl»5» idate (k) 
continue 

format ( 'storm date idate (k) i 8) 


* *** * * ft ft ft ************ * * ft ft ft ft ft ft ft ft ft ft ft ft 


ft ft ft ft ft ft ft ft ft ft ft 


ft ft ft ft ft ft ft ft ft * **** ******* 


begin to balance the records now 

************************************ * ************** ****** ******* ****** 
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initialize the counting variables 


k-1 
i = 1 

ra i n=0 . 0 
conti nue 


***** * ********* * * ***** * * * ** * * * * **** * * 


******* 


* * * * * * * * * * * * * * * * * * * * * * * * 


examine the date counter 

********************************************************************** 


i f ( (k.eq.j + 1) .and. (i . 1 t.n2) ) then 
k-1 


********************************************************************** 


there are one or more null record dates before the first storm date 
first gage first record 


************************************* 


****** 


* * * * * * * * * * * * * * * * * * * * * * * * 


else if ( (i date (k) . 1 1 . i i date ( i ) ) .and . 

6 (i .eq. 1) ) then 

write (n 1,2000) iwat (i) , i gage (i ) , idate (k) , rai n 
k-k+1 
go to 30 

********************************************************************** 

there are one or more null record date before the first storm date 
for gages other than the first gage 

********************************************************************** 


else if ( (idate (k) . 1 1 . i idate (i) ) .and. 

S (i gage (i ) . ne. i gage (i - 1) ) ) then 
wr i te (nl , 2000) iwat (i) , i gage (i) , idate (k) , rai n 
k*k+l 
go to 30 

********************************************************************** 


there is a null record date before the storm date at this gage 
for all gauges 

********************************************************************** 

else if (( i date (k) . 1 1 . i i date ( i )). and . 

Migage(i) .eq. igage (i + 1) ) .and. 

6 ( (i + 1) . Ie.n2) .and. (k.gt. 1) .and. (k. 1 1. j) ) then 
write (nl ,2000) iwat (i) . » gage (i) , idate (k) , ra i n 
k-k+1 
go to 30 


************************************** 


* * 5 ’: * * * * * * * 


* * * * * * * * * j’c * ********* 


there is a null record date before the last storm date at this gage 
for al 1 gauges 


115 


****3Y3Y**********3Y******3Y3Y******3Y**3Y****:Y****3Y3Y3Y****3Y: , c*3Y3Y**3Y*********** 


else if ( (idate (k) . 1 1 . ii date ( i )). and. 

& ( i gage ( i ) .ne. i gage (i + 1) ) .and. 

& ((i + 1) . 1 t.n2) .and. (k.gt. 1) .and. (k . 1 t.j) ) then 
wr i te (nl , 2000) iwat (i ) , i gage ( i ) , i date (k) , r a i n 
k*k+l 
go to 30 


********************************************************************** 
there is rain on the same day as the day of the date list 
********************************************************************** 


else if ((idate (k) .eq. i idate (i) ) .and. 

5 (igage(i) .eq. igage (i + 1) ) .and. 

6 ((i + 1) . Ie.n2) .and. (k.lt.j)) then 

wr i te (nl, 1000) iwat (i) , i gage (i) , i year (i) 
i -i + 1 
k=k+l 
go to 30 


imonth (i) , iday (i) ,zd (i) 


********************************************************************** 


on the last record of the same gauge with still null records to 
write except for the last gauge 


3V**3V***3V*3 , C**3^*A**********3V3V***3V3V3Wc**^V!r**3 , ?**3V3^**3Vft3 , C**3 , {ft/C*5 , :3*«3 , C*A3V3Vft3V3V3V3 , C** 


else if ( (i date (k) . eq . i i date (i )) . and . 

&(igage(i) .ne. i gage (i + 1) ) .and. 

& ((i + 1) .1 1 .n2) .and. (k.lt.j)) then 
wr i te (nl, 1000) iwat (i) , i gage (i) , i y*ear (i) , imonth (i) 
k=k+l 


go to 30 


iday (i) ,zd (i) 


****************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 3* c * V : * : 


* 


on the last record o'f the same gauge with still null records to 
write except for the last gauge 

3V***********3V********************************************************* 


else if ( (idate (k) .gt. i idate (i) ) .and. 
&(igage(i) .ne. i gage (i + 1) ) .and. 

& ( (i + 1) . 1 1 .n2) .and. (k.le.j)) then 
write (nl ,2000) iwat (i) , i gage (i) , idate (k) ,rain 
if(k.eq.j) then 
k=l 
i-i+1 

else 

k=k+l 

end i f 

go to 30 


***********************3***************************3V3V************3Y3***** 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


storm on the last record of the gauge except for the last gauge 

********************************************************************** 


else if ( (i date (k) .eq. i i date ( i )) .and . 

£ (igage (i) . ne. igage (i + 1) ) .and. 

£((i + l) . 1 1 . n2) .and. (k.eq.j)) then 
wr i te (nl , 1000) iwat (i) , i gage (i) , i year (i ) , i month ( i ) , i day (i ) ,zd (i) 
k- 1 


i = i + l 


go to 30 


********************************************************************** 


on the last record of the file with still null records to write 
********************************************************************** 


else if ( (idate (k) .eq . i i date (i )). and . 

> (i .eq.n2) .and. (k. 1 1 . j) ) then 

wr i te (nl , 1000) iwat (i ) , i gage (i ) , i year (i ) , i month (i ) , i day (i ) , zd (i ) 
k*k+l 
ao to 30 


************* * ** * * * * * * * * ***** ** 


; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


on the last record of the file with still null records to write 
before the final last record storm date 

********************************************************************** 


else if ( (i date (k) . 1 1 . i i date ( i ) ) . and . 

£ (i .eq.n2) .and. (k. 1 t.j) ) then 
wr i te (nl , 2000) iwat (i) , i gage (i ) , idate (k) , ra i n 
k=k+l 


go to 30 


************************** ************** * ********* * *■ 


* * * * * * * * * * * * * * * 


there is rain on the same day as the day of the date list, last 
gauge, last record 

********************************************************************** 


else if ( (idate (k) .eq. i idate (i)) .and. 

£ (i .eq.n2) .and. (k. 1 1. j) ) then 
write(n 1,1000) iwat(i) , igage (i) , iyear (i) 
k=k+l 
go to 30 


imonth (i) , iday (i) ,zd (i) 


**************************** **** * * ** ** **** * * * * * * * ** * * * * ** ** * ** ******** 


on the 1 ast record of the file with still null records to write 


************************************************* 


* 5*C >'C * 5*C * * )’C * * * * * 


else if ((idate(k) .gt.i idate(i)) .and. 

6 (i . eq.n2) .and. (k. i t. j) ) then 
write(n 1,2000) iwat(i) , igage (i) , idate (k) ,rain 
if (k.eq.j) then 
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c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

5 * 


c 


go to 5 

else 

k=k+l 
go to 30 
end i f 


'c itit it *V )'c it it it it it it it it it it it it it it it it it it it it it it 


it * it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it i 


'tit it 


on the last storm on the last record of the file with nothing more 
to wr i te 




it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


else if ( (i date (k) . eq . i i date ( i )). and . 

& (i .eq .n2) .and. (k.eq.j) ) then 

wri te (nl, 1000) iwat (i) , igage (i) , i year (i) , i month ( i ) , i day ( 1 ) , zd ( 1 ) 


go to 5 

else 

print, 'there is an alternative in the logic somewhere 
print,' the algorithmn failed at input file record number ; ,i 
print,' the algorithmn failed at output file record number ',k 
print, 'the input record date i s ', i i date (i) 
print, 'the output record date is',idate(k) 
print, ' i i date ( i ) 31 ' , i i date ( i ) , ' i date (k) * ' , i date (k) 
print, 'n2= ', n2 , ' i* ', i , ' k- ', k, ' j - \ j 
print,' this algorithmn will only fail during the creation of the 
print, 'final raingage created records.' 

print, 'edit the output file by "hand 11 by checking on the next to' 
print, 'last output file gage records for the storm day dates and' 
print, 'complete the final raingage storm day records' 

end i f 


continue 

print,' there are ',j,' storm days this year 
end 
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COORD. FORTRAN 


This program will assign spatial corrdinates to each of the 
93 storm day raingage records for each storm day created by 
BALANCE. FORTRAN. All other station observation records will 
be skipped 

This program was wr i tten by Neil M. Fennessey at tt.l.T. 
during the course of his Master's Degree research into the 
Areal Distribution of Total Rainfall Depth. 


definition of variables 


input variables 

iwat watershed i .d. number 

igage raingage number 

i month month 

iday day 

iyr year 

catch total storm precipitation (mm.) 

output variables 

iwat 
i gage 
i month 
i day 
iyr 
catch 
x 

y 


watershed i.d. number 

raingage number 

month 

day 

year 

total storm precipitation (mm.) 
spatial coord i nate 
spatial coordi nate 


au i uua i oust / / , \ 

dimension iwat (7100) .igage ( 7100 ) , i month ( 7 100 ) , iday ( 7100 ) 
dimension iyr ( 7100 ) , catch (7100) 


print, 'enter file number file to be read in and given coordinates' 

input, n3 . . 

print, 'enter the number of records in file f n3 

input, n2 

print, 'enter file number file to be written to 
i nput, nl 


********************************************************************** 


this section reads in the walnut gulch data 


***** Ik****************************' 


***: 


****** 


* * * * * * * * * * * * * * ** * ** 


do 10 i i*l ,n2 

read (n3,200) iwat(i i) ,igage(i i 
conti nue 


iyr (i i) , i month (i i) , iday (i i) .catch (i i) 


***************************>'C*******5V**** 


****************************** 


c 

c 

c 

c 

c 


assign spatial corrdinates to each record depending on the gage number 


* ********** * * ** * * ** * * * ** ** *** 


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


do 20 i=l,n2 
j = igage(i) 
if(j.eq.l) then 
x=10 
y=82 

wri te (nl , 100) iwat(i) , igage(i) , iyr (i) , i month (i) , 1 day ( i ) , catch ( i ) , 
6x,y 

else if(j.eq.2) then 
x=22 


y=94 

wr i te (nl, 100) iwat (i) , i gage (i) * iyr (i) , i month (i ) , iday (i ) .catch (i) , 
6x,y 

else if(j.eq.3) then 
x-21 


y= 72 

wr i te (nl, 100) iwat (i) , i gage (i) , i yr (i ) , i month (i ) , i day (i ) .catch (i) , 
6x,y 

else if(j.eq.4) then 
x=39 
y= 100 

wr i te (nl , 100) iwat (i ) , i gage (i) , i yr (i ) , i month (i ) , i day (i ) , catch ( i ) , 
6x,y 

else if(j.eq.5) then 
x*36 
y«81 

wr i te(nl, 100) iwat (i) , i gage (i ) , i yr (i ) , i month (i) , i day (i) .catch (i) , 
&x,y 

else if(j.eq.7) then 
x-52 
y-102 

wr i te(nl, 100) iwat (i) , i gage (i) , iyr ( i ) , i month (i) , i day (i ) , catch (i ) , 
6x,y 

else if(j.eq.8) then 
x=l*8 

y=88 

wr i te (nl, 100) iwat (i) , i gage (k) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq.9) then 
x=56 
y=67 

wr i te (nl, 100) iwat(i) , igage(i) , iyr (i) , i month (i) , i day (i ) ,catch(i) , 
6x,y 

else if(j.eq.lO) then 
x=52 
y=58 

wr i te(nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx,y 

else if (j .eq. 1 1) then 
x=70 
y=101 

wr i te(nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
6x,y 

else i f ( j . eq .12) then 
x-63 
y-89 
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wr i te (nl , 100) iwat (i) , i gage (i ) , i yr (i) , i month (i) , i day (i ) .catch (i) , 
Sx.y 

else if(j.eq.l3) then 
x=69 
y-77 

wr i te (nl , 100) iwat (i) , i gage (i) , i yr (i ) , i month (i) , i day ( i ) , catch (i) , 
Sx.y 

else if(j.eq.ll») then 
x= 64 
y-45 

wr i te (nl , 100) iwat (i ) , i gage (i ) , i yr (i ) , i month (i ) , i day (i ) .catch (i ) , 
Sx.y 

else if(j.eq, 15 ) then 
x-87 
y~i05 

wr i te (nl , 100) iwat (i ) , i gage (i) , iyr (i ) , i month (i ) , i day ( i ) , catch (i ) , 
Sx.y 

else if(j.eq.l6) then 
x-79 
y-90 

wr i te (nl , 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , i day (i) .catch (i ) , 
Sx.y 

else if(j.eq.l7) then 
x-91 

Y m ll* 

wr i te (nl , 100) iwat (i) , i gage (i ) , i yr (i ) , i month (i ), i day (i) , catch (i) , 
Sx.y 

else if(j.eq,18) then 
x- 77 
y-5i» 

wr i te (nl , 100). iwat (i) , i gage (i) , iyr (i) , imonth (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq,19) then 
x-88 
y=Ul 

wr i te (nl, 100) iwat (i) , i gage (i) , iyr (i ) , imonth (i ) , i day (i) , catch (i) , 
Sx.y 

else if(j.eq.20) then 

x=85 

y*23 

wr i te (nl , 100) iwat (i) , i gage (i ) , iyr (i ) , imonth (i ), i day (i ), catch ( i ) , 
Sx.y 

else if(j.eq.21) then 
x-101 

y-107 

wr i te(nl, 100) iwat (i) , igage (i) , iyr (i) , imonth (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq.22) then 
x-9l* 

y-91 

write (nl, 100) iwat (i) , i gage (i) , iyr (i) , imonth (i) , i day ( i) , catch (i ) , 
Sx.y 

else if(j.eq. 23 ) then 
x-101, 
y=87 

write (nl, 100) iwat (i) , igage (i) , iyr (i) , imonth (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq.21») then 
x=96 
y=62 
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wri te (nl , 100) iwat (i) , igage (i) , i yr (i) , i month (i ) , i day (i) .catch (i) , 
Sx.y 

else if(j.eq.25) then 
x=108 
y=41 

wri te (nl , 100) iwat (i) , igage (i) , i yr (i ), i month (i ) , i day (i) , catch (i) , 
Sx.y 

else if(j.eq.26) then 
x=98 
y=28 

wr i te (nl , 100) iwat (i) , i gage (i) , i yr (i ) , i month (i ) , i day (i) .catch (i) , 
Sx.y 

else if(j.eq.27) then 
x«116 
y=93 

wri te (nl, 100) iwat (i) , i gage (i) , i yr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq.28) then 
x=l 17 
y=73 

wr i te (nl , 100) iwat (i) , i gage (i),iyr(i),i month (i) , i day (i) .catch (i) , 
Sx.y 

else if(j.eq.29) then 
x-129 
y*59 

wr ite (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) , catch (i) , 
Sx.y 

else i f (j . eq . 30 ) then 
x=126 
y=33 

wr ite (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else i f ( j . eq -3D then 
x-134 
y=113 

wr i te (nl , 100) iwat (i) , i gage (i) , i yr (i) , i month (i ) , i day (i) , catch (i) , 
Sx.y 

else if(j.eq.32) then 
x=136 
y-91 

wr i te (nl , 100) iwat (i) , i gage (i ) , i yr (i ) , i month (i ) , i day (i ) , catch (i) , 
Sx.y 

else if(j.eq.33) then 
x-129 
y-78 

wr i te (nl , 100) iwat(i) , igage(i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq.34) then 
x«120 
y*48 

wr i te (nl 1 100) iwat (i) , i gage (i) , i yr (i ) , i month (i) , i day (i ) , catch (i) , 
Sx.y 

else if(j.eq.35) then 
x= 128 
y*39 

wr i te (nl , 100) iwat (i) , i gage (i),iyr(i),i month ( i ), i day (i ), catch (i ) , 
Sx.y 

else if(j.eq.36) then 
x-122 

y-17 
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wr i te (nl, 100) iwat (i) , i gage (i) , i yr (i) , i month (i ) , i day (i ) .catch (i) , 
£x,y 

else if(j.eq.37) then 
x»lM» 
y* 33 

wr i te (nl , 100) iwat(i) , i gage ( i ) ,iyr(i) , imonth ( i ) , i day ( i ) , catch (i ) , 
6x,y 

else if(j.eq. 3 8) then 
x-157 
y*l 1 1 

wr i te(nl, 100) iwat (i) , igage(i) , iyr (i) , imonth (i) . iday ( i ), catch (i ) , 
6x,y 

else if(j.eq.39) then 
x-li»6 
y=86 

write(nl, 100) iwat (i) , igage(i) , iyr (i) , imonth (i ), i day ( i ), catch (i ) , 
6x,y 

else if(j.eq.l»0) then 
x-U4 
y=77 

wr i te (nl , 100) iwat (i) , i gage (i) , i yr ( i ) , i month (i) , iday (i) .catch (i) , 
6x,y 

else if(j.eq.i»l) then 
x=ll*l» 
y-53 

wr i te (nl , 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , i day (i ) .catch (i) , 
&x,y 

else if(j.eq.i*2) then 
x*l 3 8 
y=22 

write (nl, 100) iwat (i) , igage (i) , iyr (i) , imonth (i) , iday (i) .catch (i) , 
6x,y 

else if(j.eq.l*3) then 
x-161 
y-120 

wr i te (nl , 100) iwat (i) , i gage (i ) , iyr ( i ) , imonth (i ) , i day ( i ) , catch ( i ) , 
6x,y 

else if (j .eq.l»l») then 
x=161 

y« 9 ° 

wr i te (nl , 100) iwat (i) , i gage (i ) , iyr (i) , imonth (i) , iday (i) .catch (i ) , 
6x,y 

else if(j.eq.l*5) then 
x-158 
y*76 

wri te(nl, 100) iwat (i) , igage (i) , iyr (i) , imonth (i) , iday (i) .catch (i) , 
Sx.y 

else I f ( j . eq - 46) then 
x=16 3 
y=60 

wr ite(nl, 100) iwat (i) , igage (i) , iyr (i) , imonth (i) , iday (i ), catch (i ) , 
Sx.y 

else if(j.eq.i*7) then 
x=154 
y=4 3 

wr i te (nl , 100) iwat (i) , i gage (i) , iyr (i) , imonth (i) , i day (i ) .catch (i) , 
Sx.y 

else if(j.eq.l»8) then 
x=167 
y=29 
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write(n 1,100) iwat(i) , igage(i) , iyr (i) , i month (i) , 
&x,y 

else if(j.eq.49) then 
x-156 
y=25 

write (nl, 100) iwat (i) , i gage (i) , iyr (i ) , i month (i) , 
6x,y 

else if(j.eq. 50 ) then 
x=178 
y=124 

write (nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , 
6x,y 

else if(j.eq. 51 ) then 
x=167 

y=l° 3 ... 

write (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , 

6x,y 

else if(j.eq.52) then 
x=178 
y=93 

write (nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i ) , 
6x,y 

else if(j.eq.53) then 
x -172 
y=68 

wri te (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , 
Sx,y 

else if(j.eq.54) then 
x=196 
y=l 14 

write (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , 
6x,y 

else i f ( j - eq . 55) then 
x=2 13 

y=l 12 

wr i te (nl , 100) iwat (i) , i gage (i) , i yr (i) , i month (i ) 
6x,y 

else if(j.eq*56) then 
x=195 
y-97 

wri te (nl , 100) iwat (i) , igage (i) , i yr (i) , i month ( i ) 
6x,y 

else if(j.eq.57) then 
x-176 
y«84 

write (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) 
6x,y 

else i f ( j - eq . 58) then 
x~186 
y=68 

write (nl, 100) iwat (i) , i gage (i) , i yr (i) , i month (i) 
6x,y 

else if(j.eq.59) then 
x=195 
y=57 

write (nl, 100) iwat (i) , i gage (i) , i yr (i) , i month (i ) 
&x,y 

else if(j.eq.60) then 
x=210 

y=98 


i day (i ) , catch (i) , 


i day (i ) .catch (i ) , 


iday (i) .catch (i) , 


iday (i) .catch (i) , 


i day (i ) , catch (i) , 


i day (i ) , catch (i ) , 


iday (i) .catch (i) , 


, iday (i) .catch (i) , 


, iday (i) .catch (i) , 


, iday (i) .catch (i) , 


, iday (i) .catch (i) , 


, i day (i ) , catch ( i ) , 
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wr i te (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq.61) then 
x =207 
y*89 

wr i te (nl , 100) iwat (i) , i gage (i) , i yr (i ) , i month (i ) , i day ( i ) , catch (i) , 
6x,y 

else if(j.eq.62) then 
x-217 
y*83 

wr i te(nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
&x,y 

else if(j.eq.63) then 
x-208 
y-71 

wr i te (nl, 100) iwat (i) , i gage (i) , i yr (i) , i month (i) , i day (i ) , catch (i ) , 
Sx.y 

else if(j.eq.65) then 
x-227 
y-100 

wr i te (nl , 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , iday(i) ,catch(i) , 
£x,y 

else if(j.eq.66) then 
x-234 
y*87 

wr i te (nl, 100) iwat (!) , i gage (i) , iyr ( i ) , i month (i) , iday (i) , catch (i) , 
6x,y 

else if(j.eq.67) then 
x=238 
y-119 

wr i te(nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
6x,y 

else if(j.eq.68) then 
x*21»5 
y=105 

wr i te (nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else if(j.eq.69) then 
x=252 
y-127 

wr i te(nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
6x,y 

e i se i t \j • eq • 70 ) then 

x=257 

y=H9 

wr i te(nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
&x,y 

else if(j.eq.71) then 
x=130 
y=100 

wr i te(nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
&x,y 

else i f (j . eq.72) then 
x = 19 1 

y=84 

wr i te (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
6x,y 

else if(j.eq.73) then 
x -150 
y=125 
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wri te (nl, 100) iwat (i) , i gage (i) , i yr (i) , i month (i ) , i day (i) , catch (i) , 
6x,y 

else if(j.eq.74) then 
x* 117 

wri te (nl , 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
6x,y 

else if(j.eq.75) then 
x=73 
y s 1 1 3 

write (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else if(j*eq.76) then 
x«37 
y-69 

write(nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
6x,y 

else if(j.eq.77) then 
x-lM, 

y»8 

write (nl, 100) iwat (i) , i gage (i) , iyr ( i ) , i month (i) , iday (i) .catch (i) , 
&x,y 

else if(j.eq>78) then 
x-169 

y*17 

write (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
6x,y 

else if(j.eq.79) then 
x=73 

wri te(n 1,100) iwat(i) , igage (i) , iyr (i) , imonth(i) ,iday(i) .catch (i) , 
Sx.y 

else if(j.eq.80) then 
x=120 
y=86 

wri te (nl , 100) iwat (i) , i gage (i) , iyr ( i ) , i month (i) , i day (i) . catch (i) • 
&x,y 

else if (j .eq.81) then 
x=10i+ 
y=55 

wri te (nl , 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , i day (i) , catch (i ) , 
Sx,y 

else if (j .eq.82) then 
x-2 14 
y*50 

wri te (nl, 100) iwat (i) , igage (i ) , iyr ( i ) , i month (i ) , i day (t) . catch (i) , 
Sx.y 

else if(j.eq.83) then 
x=107 
y*»97 

wr i te (nl , 100) iwat(i) , i gage (i) ,iyr(i) ,imonth(i) , i day ( i ) ,catch(i) , 
Sx.y 

else if(j.eq.87) then 
x=li*6 
y=101 

wri te (nl, 100) iwat (i) , igage (i) , iyr (i) , i month (i) , iday (i) .catch (i) , 
Sx.y 

else i f ( j . eq . 88) then 
x=187 
y-109 
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wr i te (nl , 100) iwat (i) , igage (i) , iyr (i) , i month (i) , i 
6x,y 

else i f ( j . eq . 89) then 
x=176 
y-H5 

wr i te (nl , 100) i wat (i ) , i gage (i ) , i yr (i ) , i month ( i ) , 
6x,y 

else if(j.eq.90) then 
x-177 
y*i05 

wr i te (nl , 100) iwat (i ) , i gage (i ) , i yr (i ) , i month (i ) , 
&x,y 

else if(j.eq. 91 ) then 
x«205 
y=106 

wr i te (nl, 100) iwat (i) , i gage (i) , i yr (i) , i month (i ) , 
6x,y 

else i f (j . eq .384) then 
x=106 
y=94 

wr i te (nl , 100) iwat (i) , i gage (i) , i yr (i ) , i month (i ) , 
6x,y 

else if(j.eq.385) then 
x =151 

y=88 

wr i te (nl , 100) iwat (i) , igage (i) , i yr (i) , i month (i) , 
6x,y 

else if(j.eq.386) then 
x=104 

y-97 

wr i te (nl , 100) iwat(i) , igage (i) ,iyr(i) ,i month ( i ) , 
Sx,y 

else if(j.eq. 512 ) then 
x*59 
y-89 

wr i te(nl, 100) iwat (i) , i gage (i) , iyr (i) , i month (i) , 
&x,y 

else i f ( j . eq . 537) then 
x*U4 
y-3 2 

wr i te (nl , 100) iwat (i) , i gage (i ) » fyr (i) , i month ( i ) 
6x,y 

else if(j.eq.560) then 
x-210 

y-99 

write(n 1,100) iwat(i) , igage (i) , iyr (i) , imonth(i) 
6x,y 

else if(j.eq.587) then 
x=ll*4 
y*103 

wr i te (nl, 100) iwat (i) , igage (i ) , iyr (i) , i month (i) 
6x,y 
else 

jj=jj+l 

end i f 

20 continue 

jjj=n2-j j 
c 

100 format (12, i3» lx,3*2,f6-2,2(lx,fl*.0)) 

200 format (i2, i 3 » lx,3'2,f6.2) 


day (i) .catch (i) , 


iday (i) .catch (i) , 


i day ( i ) , catch (i ) , 


i day (i ) , catch (i ) , 


iday (i) .catch (i) , 


i day ( i ) , catch (i ) , 


i day ( i ) , catch (i) , 


iday (i) .catch (i) , 


iday (i) .catch (i) , 


, iday (i) .catch (i) , 


, i day ( i ) , catch (i ) , 
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300 format ( 'there were',i6, ' records written to file'.ii*) 
print300, jjj ,nl 
c 

end 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c* 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


STRMSORT. FORTRAN 

This program gathers together the 93 station observation records 
for a single storm day. 

The files called bal70.data, bal 71 .data ... and ... bal77*data 
must be placed in file70, file71, f i 1 e7 3 ... f i 1 e7 7 • 

(file digits correspond to the last two digits of 
the year in question). 

This program was written by Neil fl. Fennessey at M.l.T. 
during the course of his Master's Degree research into the 
Areal Distribution of Total Rainfall Depth. 


definition of variables 

input and output variables 

iwat watershed i .d. number 

igage raingage number 

i month month 

iday day 

iyr year 

isthr storm starting hour 

istmin storm starting minute 

idur storm duration 

catch total storm precipitation 

n3 file number (corresponds to the year) 

nl storm day number 

n2 number of storm days in year n3 (file n3) 

nl* number of records in file n3 


^global ansi77 

d i mens ion iwat ( 7000 ) , i gage ( 7000 ) , i month ( 7000 ) , i day ( 7000 ) 
dimension iyr (7000) , catch (7000) ,x ( 7000 ) ,y (7000) 

ft******************************************************************** 

select file file corresponding to the year of interest 

*sV******************************************************************* 

print, 'enter the last two digits of the year of interest' 
i nput,n3 

********************************************************************* 


select the storm day number for the storm day of interest 


************************* * * * * * * * * * * Vc rt * * )’c ft * * rt * * * * ft * :’c ft ft * ft * ft ft ft ft ft ft ft ft ft ft ft * 


print, 'enter storm number desired' 
i nput , nl 

********************************************************************* 


129 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


determine the number of storm days this summer season 


ititit 5*c it it ititititit ititit it it it it itititit itit 


it it it it it it it it it it it 


it it itit it it it it it it it it it it it it it it it it it itit it it it it it it it 


if(n 3-eq.70) then 
n 2=49 

else if(n 3-eq.71) then 
n2=52 

else if(n 3*eq.72) then 
n2=58 

else if(n3.eq.73) then 
n2=l*5 

else i f (n3.eq.71*) then 
n2=63 

else if(n3-eq.75) then 
n2«l*8 

else if(n3>eq.76) then 
n2*53 

else if(n3.eq.77) then 
n2=63 • 

end i f 


* *********** it itititit it it it it it it it itit it it itit 


itit it it itit it it it it it it it it 


it it itit it it it it it it it it it it it it it it it it it it 


determine the number of records in this summer season's file 


it ititit ititititititititit it it it itititit it ititit it it 


itit 


itit 


it itit it it it it it it it it it it it it it it it it it it it it it it ititit it it it it 


i f (n3.eq.70) then. 
n4 a 4557 

else if(n3-eq.71) then 
n4*4836 

else if(n3*eq.72) then 
n4“5394 

else if(n3*eq.73) then 
n4=4185 

else if(n3-eq.74) then 
n4=5859 

else if(n3*eq.75) then 
n4*4464 

else i f (n3 . eq .76) then 
n4*4929 

else if(n3-eq.77) then 
n4«5859 

end i f 


print, 'do you wish to continue with this run, enter a 1 for' 
print, 'a go , and a 2 for a stop' 
i nput , fa 

if (fa.eq.1.0) then 
go to 400 
else 

go to 600 
end i f 


icititititicititititititititititiiitititititititititititititititititititititititititititititititititititititititititititititititititit 


this section reads in the walnut gulch data 
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c 

c 

c 

1*00 

c 


10 

c 

c 

c 

c 

c 

c 

c 

c 


30 

c 

200 

600 

c 


******************************************************************* 


continue 


do 10 i = l,nl* 

read (n3,200) iwat(i) , igage(i) , iyr (i) , i month (i) , iday (i) , 
Scatch (i) ,x (i) ,y (i) 
continue 
rewi nd (n3) 




this section writes the 93 station observations for this 
particular storm day to f i 1 e84 


******************************************************************* 


do 30 i*nl,nl»,n2 

wr i te (84.200) iwat (i) , igage(i) , iyr (i) , i month (i) , iday (i) , 
Scatch (i) ,x (i) ,y (i) 
continue 

format (i2. i3» lx.3i2,f6-2,2 (lx.fl+.0) ) 
continue 

end 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


GAGECORR .FORTRAN 

The program determines the spatial correlation among the 93 
storm day station observation total rainfall depth records 

This program was written by Neil M. Fennessey at M. I .T. 
during the course of his Master's Degree research into the 
Areal Distribution of Total Rainfall Depth, 


definition of variables 


i nput var i ab 1 es 


iwat 

watershed i.d. number 

igage 

rai ngage number 

imonth 

month 

i day 

day 

iyr 

year 

zd 

total station storm day rainfall (mm.) 

xd 

station spatial coordinate 

yd 

station spatial coordinate 


random field variables 


zi node total depth (mm.) 

xi node spatial coordinate (0.1 km.) 

yi node spatial coordinate (0.1 km.) 

Moments 


avedepth average depth of the random field: E (Y) (mm.) 

vardepth variance of the depth of the random field: VAR (Y) (sq. mm.) 

Spatial correlation 

x lag distance (km.) 

y spatial correlation of gage depth at a particular lag distance 

i pairs number of node pairs created at this lag distance 


d imens i on 
dimension 
dimension 
dimension 
dimension 
d imens ion 
d imens i on 


i wat ( 93 ) , i gage ( 93 ) , i year ( 93 ) , imonth ( 93 ) 

i day (93) . zd ( 93 ) , xd ( 93 ) , yd ( 93 ) 

i pairs ( 0 : 200 ) .gagdst ( 0 : 7000 ) .check ( 0 : 7000 ) 

y ( 101 ) ,x( 101 ) ,y 2 ( 101 ) ,x 2 ( 101 ) 

tl ( 0 : 500 ) ,bl ( 0 : 500 ) ,b 2 ( 0 : 500 ) 

avedepth ( 93 ) .amonth ( 6 ) 

ipairs 2 ( 30 ) , y 3 ( 30 ) ,x 3 ( 30 ) 


data (amonth (i) , i-1 ,5) / 'June 'July', 'Aug', 'Sept', 'Oct'/ 


print, 'Are you linked to the DISSPLA ?' 

nd-93 

****************************J’{*****,i.***sVA******>V*********>V****A********* 
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I 



c 

c 

c 

c 

c 


140 

c 


c 


c 

900 

1000 

c 

c 

c 

c 

c 

c 

c 


2i»0 

c 

c 

c 

c 

c 

c 

c 

c 

c 


160 


360 

350 

c 

c 

c 

c 

c 

c 

c 


the section reads in the storm day data from file84 
*********************************************************************** 
do 140 1 * 1 , nd 

read (84* 1000) iwat (i) , igage(i) , iyear (i) , i month (i) , iday (i) ,zd (i) , 

&xd (i) .yd (i) 
continue 

i iday-iday (1) 
i i year*) year ( 1) +1900 
l«imonth (1) -5 
amnth-amonth (1) 


pr i nt, ; 

pr i nt 900 ,amnth, i iday, i iyear 

print, ' ; 

format ( 'storm day ',a4,i3*i5) 
format (i2,i3*lx,3i2,f6*2,2(lx,f4.0)) 

*********************************************************************** 

calculate the average gauge depth: E (Yo) 

*********************************************************************** 

do 240 i-l,nd 
al»zd (i)+al 
dl«dl+l 
cont i nue 

avedptn-a i/d 1 

*********************************************************************** 


this portion will calculate the variance of the gauge depth: 

VAR (Yo) 

*********************************************************************** 

do 160 j«l,nd 
1-1 + 1 

a2- ( (zd (j) -avedpth) **2.) +a2 
continue 

vardepth-a2/ (1 - 1) 
print , 9 9 
print 360, avedpth 
pr i nt 350,vardepth 

format ( 'the average gauge depth*', f 10.3, ' mm.'/) 

format ('the variance of the gauge depth- ', f 10 . 3. ; mm squared'/) 

compare the distance with the object gauge and ech of the other 
gauges, then see if a particular pair been already been examined 

********************************************************************** 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


40 

c 

c 

c 

c 

c 

c 

c 

35 

c 


c 

c 

c 

c 

c 

c 

c 

c 


j*0 
1*0 
i *0 

do 20 1*1, nd 
do 30 i*l,nd 

gagdst (j) *sqr t ( ( (xd (1 ) -xd ( i ) ) **2 .) + ( (yd (1 ) -yd (i ) ) **2.) ) 

check (j ) *gagdst (j) * (i gage (l)*i gage (i)) + (i gage (l) + i gage (i)) 

gagdst equals the distance between the gage in question and then 
object gauge. Aside from itself (needed for lag zero), check to see 
if we have compared these two before, or if the lag distance is 
greater than 100 (10 km.) 

************************************************^^ c**yc************5^**** 

c l*xd (1) -xd (i) 
c2*yd (1) -yd (i) 

if (((cl. eq. 0.0) .and. (c2.eq.0.0)) .or. (j.eq.l)) then 
go to 35 

else i f (gagdst (j) .gt . 100) then 

j«j-l 

go to 30 

else 

k=0 

do 1*0 k-l,j-l 

d i f f=abs (check (k) -check (j ) ) 
if (diff .eq.0.0) then 

j-j-1 

go to 30 
end i f 
continue 
end i f 

********************************************************************** 
round the lag distance up or down to the nearest integer value 
********************************************************************** 
cont i nue 

igagdst-gagdst (j) 
a3»gagdst (j) -i gagdst 
if (a3.ge.0.5) then 
lag*igagdst+l 

else 

iag=i gagdst 
end i f 

********************************************************************** 

calculate the components which comprise the correlation for this 
particular lag. 

********************************************************************** 
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c 

tl (1 ag) * ( (zd (i) -avedpth) * (zd (1) -avedpth) ) +t 1 (1 ag) 
bl (1 ag) ■ ( (zd (i) -avedpth) **2.)+bl (lag) 
b2 (1 ag) * ( (zd (1) -avedpth) **2.) +b2 (lag) 
i pai rs (1 ag) *i pai rs (lag)+l 
c 

30 continue 

20 continue 

c 
c 

C ********************************************************************** 

c 

c calculate the correlation coefficient for each lag up to a lag 

c of ten kilometers. Check to see if the variance of either gauge 

c equals zero, 

c 
c 

c ********************************************************************** 

c 

do 60 i =0,100 

if ((bl (i) .eq.0.0) .or. (b2 (i) .eq.0.0)) then 
f 1-i 

y2 (i + 1) =0.0 
x2 (i + 1) -f 1/10. 
go to 60 

else i f ( i pa i r s ( i ) . eq . 1 ) then 
ipairs(i)*Q 
f 1-i 

y2 ( i + 1) =0 .0 
x2 (i + 1) -f 1/10. 
go to 60 

else 

k3«k3+l 

y (i + l)*tl (i) / (sqrt (bl (i) *b2 (i ) ) ) 
f 1-i 

x (i + 1) -f 1/10. 
y2 ( i + 1 ) *0 . 0 
x2 (i + 1) *f 1/10 • 
end i f 

60 continue 

c 

c ******************************************************************* 

c 

c smooth the above point values using a moving weighted average 

c 

c ******************************************************************* 

c 

c set the smoothed curve lag zero equal to 1.0 

c 

c ******************************************************************* 

c 

k4*l 

x3(ki*) -0.0 
y3(ki»)-1.0 
c 

do 180 i-8. 101,5 
cl-0. 
dl-0. 
gl*0. 

do 190 j-i , i+4 
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190 


180 

c 

c 

c 

c 

c 

c 

c 


g i”j + gi 

c I s i pa i rs (j) +cl 
d 1 * i pa i r s ( j ) *y ( j + 1 ) 1 

cont i nue 
kl*=kl»+l 
x3(k4) =gl/50. 
y3(kl*) =dl/cl 
i pai rs2 (kl*) *c 1 
continue 


********************************************************************* 


this section of the program starts the disspla plotting routines 
********************************************************************* 


pr i nt , 'enter i ng the plotting routines' 

call comprs 

cal 1 page (11 .0,8*5) 

call basalf ( 'stand 0 

cal 1 mx4al f ( 'greek lh*) 

cal 1 yaxang (0.0) 

call xname ( 'Spat i al Lag *n) (k i I ometer s) $ M00) 
call yname( 'Correlation Coefficient: *r (n) ) $ 100) 

call area2d (7-0.5-0) 

call headin ( 'Intergauge Spatial Correlations ', 100, 1 .5. U 
call thkfrm(O.Ol) 

call messag ( 'Storm Day$ ',9. 5 -2, 5 -45) 

call messag (amnth,l*,5*0,5*2) 

call messag 1,5- 9. 5- 2) 

call intno(i iday,5-6i5-2) 

call intno(i iyear ,6.0,5'2) 

call frame 

call graf (0 . , 1 . , 10 . , - 1 . ,0. 2 , 1 .0) 

call marker (15) 
call poly3 

call curve (x3.y3.k 1 »» 1) 

call thkcrv(2) 

call curve (x2,y2, 101 ,0) 

call endpl (0) 

call donepl 

end 
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ALLCORR. FORTRAN 


c 
c 
c 

c The program samples the coarse mesh random field and determines 

c the spatial correlation by the radial sweep algorithmn 

c 

c This program was written by Neil M. Fennessey at M.l.T. 

c during the course of his Master's Degree research into the 

c Areal Distribution of Total Rainfall Depth, 
c 

c 

c 

c definition of variables 

c 

c input variables 

c 

c iwat watershed i .d. number 

c igage raingage number 

c i month month 

c iday day 

c iyr year 

c zd total station storm day rainfall (mm.) 

c xd station spatial coordinate 

c yd station spatial coordinate 

c 

c random field variables 

c 

c zi node total depth (mm.) 

c xi node spatial coordinate (0.1 km.) 

c yi node spatial coordinate (0.1 km.) 

c 

c Moments 

c 

c avedepth average depth of the random field: E (Y) (mm.) 

c vardepth variance of the depth of the random field: VAR (Y) (sq. mm.) 

c 

c Spatial correlation 

c 

c x lag distance (km.) 

c y spatial correlation of the random field at a particular lag 

c pairs number of node pairs created at this lag distance 
c 


c 

dimension zi ( 1 47 » 70) , amonth (6) 

dimension iwat (93) » igage (93) . iyear (93) , imonth (93) 
d i mens i on i day (93) * zd (93) t xd (93) , yd (93) 
dimension xi (147) »y i (70) ,wk (558) • i wk (13173) 
d i mens i on y (200) , x (200) , y 2 (200) , x2 (200) 
dimension pairs (0:200) 

dimension tl (0:200) ,bl (0:200) ,b2 (0:200) 

c 

data (amonth (i) , i»1.5) / 'June ', 'July ', 'Aug \ 'Sept ', 'Oct '/ 
c 
c 

print, 'Are you linked to the I MS L and D1SSPLA libraries?' 
c 

print, ' if you wish to create a plot, enter a 1 ' 
input, choice 
c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


140 

c 

1000 

c 

c 


1005 

c 

c 

c 

c 

c 

c 

c 

c 


120 

130 

c 

c 

c 

c 

c 

c 

c 


print,' enter the file number for the results to be written to' 

input.nln t 

print, 'enter the number of input records, currently 93 

i nput.nd 


it it it it it it it * it it it * it it * * i’c it it 


it it it it it 


************************ ******************* 


the section reads in the storm data from f i 1 e8U and divides 
these coordinates in two (both x and y) for use in the coarse 
mesh random field. 


************** ****************** 


it it it it it it 


it it it it it it it it it it it 


it it it it it it it it it it it it it it it it it it 


do 140 i“l,nd 

read (84. 1000) iwat (i) , igage (i) , i year (i) , i month ( i ) , i day ( i ) , zd ( i ) , 
Sxd ( i ) ,yd (i) 

xd (i ) =xd (0/2. 
yd (i ) =*yd (0/2. 
continue 

format (I2,i3tlx#3*2,f6.2,2(lx,f4*0)) 


i iday=iday (1) 
i i year=1900+i year (1) 
i i i=imonth (1) -5 
amnth=amonth (i i i ) 

print, ' 

print 1005 , amonth (i i i) , i iday, i iyear 

print, ' 

f ormat ( 'storm day ',34** 3* >5) 


ititltititititititititititititititititititititititititititititititititititit 


it it it it it it it it it it it it it it it it it it it it it it it it it it ****** 


this portion generates the x and y coordinates of the nodes in 
coarse mesh matrix: xi and yi 


* itititit it it it it it it it it it it it it it it it 


a a a a 


■ it it ic ic ic 


A A A 


it it it it i: it it it it it 


nxi=147 
nyi*70 
i 2i — 11*7 
nxi 1*H6 
nyi 1*69 
nxi2*nxi*2 
nyi2=nyi*2 
do 120 j*l,nxi 
xi (j)*j 
cont i nue 
do 130 i*l,nyi 
yi (i) *i 
cont i nue 


it it it it it it itititit it it it it it it 


it it it it it it it it it it it it it it it it it it it it it 


it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


invoke the l MS L bivariate surface interpolator subroutine 1QHSCV 
to generate the coarse total rainfall depth surface 
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c 


cal 1 iqhscv (xd, yd , zd , nd, xi , nx i , y i ,ny i , 2 i , i z i , i wk ,wk , i er) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 


*********************************************************************** 


this section of the program creates the numerical watershed boundary 
filter. It assigns the nodes of the coarse mesh matrix outside of 
the Walnut Gulch basin random field with depth values of -1. mm. 

The values generated by bivariate surface interpolator for nodes 
within the random field are left intact and untouched. 


************************************************ 


* * * * * * * ft * * ****** * * * * * * 


nxi refers to the number of columns in the matrix 
nyi refers to the number of rows in the matrix 

do 10 i*2,nyi2,2 
do 20 j*2 # nxi2,2 


'.=j/2 

m-i/2 

These logic statements define the coarse mesh basin boundary. 

i f ( (i .eq.2) ) then 
zi (1 ,m)«-l. 
go to 20 

eise i f ( (i .eq.i») ) then 
zi (1 ,m)=-l. 
go to 20 

else if((i.eq.6)) then 
z i ( 1 , m) ■- 1 . 
go to 20 

else i f ( ( i - eq . 8) ) then 
zi (1 ,m)*-l. 
go to 20 

else if ( ( i .eq. 10) .and. ( ( (j .ge. 126) .and. (j . le. 128) ) .or . ( (j . ge . 1 i+8) .and. 

& (J . le. 150) ) ) ) then 
go to 25 

else if(i.eq.lO) then 
zi (1 ,m) — 1. 

else i f ( (i .eq . 12) .and . ( ( (j .ge.88) . and . (j . 1 e . 90 ) ) .or . ( (j . ge. 126) 

£. and. (j . 1 e. 132) ) .or . ( (j .ge. H6) .and. (j . 1 e . 150) ) ) ) then 
go to 25 

else i f ( i . eq .12) then 
z i ( 1 , m) *- 1 . 

else if ( (i .eq. lit) .and. ( ( (j .ge.88) .and. (j . 1 e . 94) ) .or . ( ( j .ge. 126) 

6. and. (j . le. 138) ) .or . ( (j .ge. HO) .and. (j . le. 152) ) ) ) then 
go to 25 

else if (i .eq.lit) then 
z i ( 1 , m) *- 1 . 

else i f ( (i .eq. 16) -and . ( ( ( j .ge.88) - and . (j . 1 e. 94 ) ) .or . ( (j .ge. 1 16) .and. 

£ (j . 1 e. 160) ) ) ) then 
go to 25 

else if (i .eq. 16) then 
z i (1 ,m) =- 1 . 

else i f ( (i .eq. 18) .and. (( (j .ge.88) .and. (j . 1 e. 100) ) .or . ( (j .ge. 1 16) - and . 

S (j . 1 e. 162) ) ) ) then 
go to 25 

else if(i.eq.l8) then 
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z i (1 .m) — 1. 

else i f ( ( i . eq - 20) •and. ( { (j .ge.88) .and . ( j . 1 e . 102) ) -or . ( ( j . ge . 1 1 6) .and . 

6(j.le.l61*)))) then 
go to 25 

else i f (i .eq . 20) then 

else 2 if ( ( i .eq .22) .and. (((j .ge.80) .and. (j.le.82)) -or. ((j.ge-84) -and. 

& (j . le. 102)) .or . ( (j .ge. 1 18) .and. (j . le. 166) ) ) ) then 
go to 25 

else i f ( i . eq .22) then 
z i ( 1 . m) *- 1 . 

else if ((i.eq.24) .and. ( ( (j .ge.82) .and. (j.le.106)) .or . ( (j .ge. 1 18) -and. 

& (j . 1 e. 166) ) ) ) then 
go to 25 

else if (i.eq.24) then 
zi (1 ,m)*-l. 

else i f ( (i .eq .26) .and. (( (j .ge.82) .and. ( j . 1 e . 106) ) .or . ( (j .ge. 1 18) -and. 

6 (j . le. 165) ) ) ) then 
go to 25 

else if (i .eq.26) then 
zi (1 ,m)*-l. 

else i f ( (i .eq . 28) . and . ( ( (j . ge . 81*) • and . (j . 1 e . 106) ) .or . ( (j . ge . 1 18) .and . 

6 (j . le. 170 ) ) ) ) then 
go to 25 

else if(i.eq.28) then 
zi (1 ,m)*-l. 

else i f ( (i .eq . 30 ) . and . ( ( (j . ge . 84) . and . (j . 1 e . 108) ) .or . ( (j . ge . 1 10) . and . 

& (j . le. 1 14) ) .or. ( (J .ge. 1 16) - and. (j . 1 e . 172 ) ) ) ) then 
go to 25 

else i f ( i . eq . 30) then 
• z i ( 1 , m) ■- 1 . 
go to 25 

else if m.ea.'tt) .and. (i.ae.82) .and. (j.le. 170 )) then 


go to 25 

else if(i.eq* 32 ) then 
zi (1 ,m) =- 1 . 

else i f ( (i .eq. 34) -and. (j .ge.82) .and. (j . le. 174) ) then 
go to 25 

else i f ( i . eq . 34) then 
zi (1 ,m)— 1. 
go -to 25 

else i f ( (i .eq. 36) .and. (j .ge.82) .and. (j . 1 e. 174) ) then 
go to 25 

else i f (i .eq.36) then 
z i ( 1 , m) *- 1 . 

else if ((i .eq.38) .and. (j .ge.84) .and. (j . le. 174)) then 
go to 25 

else if(i .eq.38) then 
zi (1 ,m)--l. 

else if £(i .eq. 1*0) .and. (j .ge.82) .and. (j . le. 172 ) ) then 
go to 25 

else i f (i .eq .1*0) then 
zi (1 ,m)=-l. 

else i f ( ( i .eq .42) . and . ( ( (j . ge . 52) . and . (j . 1 e . 54) ) -or . ( (j . ge . 70) . and . 

& (j . le.74) ) -or . ( (j . ge.78) .and. (j . 1 e . 172 ) ) ) ) then 
go to 25 

else i f ( i . eq - 1*2) then 
zi (1 ,m) "-1 . 

else if ((i . eq.44) .and. ( ( (j .ge.52) .and. (j . le.56) ) -or . ( (j . ge.58) .and. 

& (j . 1 e . 172 ) ) ) ) then 
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go to 25 

else i f (i .eq .44) then 
z i 0 f m) *-l . 

else i f ( (i . eq .46) .and. (j .ge.52) .and. (j . I e. 174) ) then 
go to 25 

else i f (i .eq .46) then 
zi (1 ,m) — 1 . 

else if ( ( i . eq . 48) .and. (j .ge.54) -and. (j . le. 174) ) then 
go to 25 

else if (i .eq .48) then 
zi (1 

else i f ( (i . eq.50) - and. ( ( (j .ge.58) .and. (j . 1 e. 174) ) • or . ( (j .ge. 180) .and. 

5 (j . 1 e . 182) ) ) ) then 

go to 25 

else if(i.eq.50) then 
zi (1 ,m) — 1 . 

else i f ( (i .eq. 52) .and. (j .ge.58) .and. (j . 1 e. 182) ) then 
go to 25 

else i f ( i . eq .52) then 
z i (1 ,m) ■- 1 . 

else i f ( (i .eq.54) .and. (j .ge.57) .and. ( j . 1 e . 1 9 1 ) ) then 
go to 25 

else i f (i .eq.54) then 
zi (1 ,m)»-l. 

else if ((i .eq.56) .and. (j .ge.54) .and. (j . le. 195)) then 
go to 25 

else i f (i . eq . 56) then 
zi (1 ,m) — 1. 

else if ((i .eq.58) - and. (((j .ge.36) - and. (j .le.38)) - or. ((j .ge.52) .and. 

6 (j . le. 196) ) ) ) then 

go to 25 

else if (i .eq.58) then 
zi (1 f m) — 1. 

else i f ( (i .eq .60) .and. (j . ge. 34) .and . (j . 1 e . 198) ) then 
go to 25 

else if (i .eq .60) then 
2 i (1 ,m) *-l . 

else if ((i .eq.62) .and. (j .ge.34) .and. (j . le.206) ) then 
go to 25 

else if (i .eq.62) then 
zi (1 f m) — 1. 

else i f ( ( i . eq • 64) . and . ( ( (j • ge . 33) • and . (j . 1 e . 208) ) • or . ( (j . ge . 2 1 8) . and ♦ 

& (j . 1 e. 22 1) ) ) ) then 
go to 25 

else if (i ;eq.64) then 
zi (1 

else if ((i .eq.66) .and. (j .ge. 32 ) .and. (j . le.222) ) then 
go to 25 

else if (i .eq.66) then 
zi (1 ,m) *-l . 

else if ( (i .eq.68) - and. (j .ge.30) .and. (j . 1 e. 224) ) then 
go to 25 

else i f ( i . eq .68) then 
zi (1 ,m)*-l. 

else i f ( ( i . eq . 70 ) . and . (j . ge . 28) • and . (j . 1 e . 226) ) then 
go to 25 

else if(i.eq. 70 ) then 
zi (1 ,m)*-l. 

else if ((i .eq. 72 ) .and, (j .ge.25) .and. (j . le.226))^ then 
go to 25 
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else i f (i .eq. 72 ) then 
zi 0 f m) *-l . 

else i f ( (i .eq . 74) - and . (j . ge. 2 1) . and . (j . 1 e .226) ) then 
go to 25 

else if (i .eq.74) then 
zi ( 1 , m) =- 1 . 

else if ( (i .eq.76) .and. (j .ge. 17) .and. (j . le.226) ) then 
go to 25 

else if (i .eq.76) then 
z i (1 , m) ■- 1 . 

else i f ( ( 1 . eq .78) * and . (j .ge. 13) • and . (j . le.226) ) then 
go to 25 

else i f ( i .eq.78) then 
zi (1 ,m) *-l . 

else if ( (i .eq.80) .and. (j .ge. 1 1) .and. (j . le.228) ) then 
go to 25 

else if (i .eq.80) then 
zi (1 ,m) ■- 1 . 

else i f ( (i . eq .82) . and . (j . ge . 10) . and . (j . 1 e . 230) ) then 
go to 25 

else if (i .eq.82) then 
zi (1 f m)— 1. 

else i f ( (i . eq.84) .and. (j .ge. 12) .and. (j . le.233) ) then 
go to 25 

else i f (i .eq.84) then 
zi (1 , m) »-l . ' 

else i f ( ( i . eq . 86) .and . (j . ge . 14) .and . (j . le.234) ) then 
go to 25 

else if (i .eq.86) then 
zi (1 ,m) *-l . 

else if ( (i .eq.88) .and. (j .ge. 15) - and. (j . le.235) ) then 
go to 25 

else i f (i .eq.88) then 
zi (1 ,m)*-l. 

else if ( (i .eq. 90 ) .and. (j . ge. 17) • and . (j .1 e . 238) ) then 
go to 25 

else if (i. eq. 90 ) then 
z i (1 ,m) =- 1 . 

else i f ( (i .eq .92) .and . (j . ge . 18) . and . (j . 1 e . 238) ) then 
go to 25 

else if (i .eq. 92 ) then 
z i (1 ,m) =- 1 . 

else if ( (i . eq.94) .and. (j .ge.21) .and. ( j . 1 e • 2 38) ) then 
go to 25 

else if (i .eq.94) then 
zi (1 ,m)*-l. 

else if ( (i .eq.96) .and. (j .ge.23) .and. (j . le.238) ) then 
go to 25 

else i f (i .eq.96) then 
zi (1 ,m)=-l. 

else if ( (i .eq.98) .and. (j .ge. 25 ) .and. (j . le.239) ) then 
go to 25 

else if (i .eq.98) then 
z i (1 ,m) =- 1 . 

else if ( (i .eq. 100) .and. (j .ge.35) .and. ( j . 1 e . 240) ) then 
go to 25 

else if ( i. . eq . 100) then 
z i (1 , m) «-l . 

else if ( (i .eq. 102) .and . (j .ge.44) .and. (j . le.239) ) then 
go to 25 




else if(i.eq.l02) then 
zi (1 ,m) *-l . 

else if ( (i .eq. 104) .and. (j .ge.67) .and. (j . le.243) ) then 
go to 25 

else i f (1 .eq . 104) then 
zi (1 ,m) =-l . 

else if ( (i .eq. 106) .and. (j .ge.88) .and. (j . le.247) ) then 
go to 25 

else if(i.eq.l06) then 
zi (1 ,m)=-l. 

else if ( (i .eq. 108) .and. (j .ge. 104) .and. (j . le.252) ) then 
go to 25 

else if(i.eq.l08) then 
zi (1 ,m) =-l . 

else i f ( (i .eq. 1 10) .and . (j . ge. 125) -and . (j . 1 e. 254) ) then 
go to 25 

else i f ( i . eq .110) then 
zi (1 ,m) *-l . 

else i f ( (i .eq. 1 12) .and. (j .ge. 129) .and. (j . 1 e.255) ) then 
go to 25 

else i f ( i . eq .112) then 
zi (1 ,m) *-l . 

else i f ( ( i . eq .114) .and. ( ( (j .ge. 135) • and. (j . le. 138) ) .or . ( (j .ge. 1 40) 
&.and. (j . le.256) ) ) ) then 
go to 25 

else if(i.eq.ll4) then 
z i ( J , m) *- 1 . 

else i f ( ( i . eq .116) - and. ( ( (j .ge. 150 ) .and . (j . 1 e. 200) ) .or . ( (j . ge .210) 
6.and. (j . 1e.257) ) ) ) then 
go to 25 

else i f ( i . eq .116) then 
z i ( 1 , m) ■- 1 . 

else i f ( ( i . eq .118) .and. ( ( (j .ge. 153) - and . (j . 1 e. 193) ) -or . ( (j .ge. 2 14) 

5. and. (j . le.218)) -or . ((j.ge.225) -and. (j . 1 e . 257) ) ) ) then 

go to 25 

else i f ( i . eq .118) then 
zi (1 ,m) — 1 . 

else i f ( ( i . eq . 120) .and . ( ( (j .ge. 158) .and . (j . 1 e . 189) ) .or . ( (j .ge . 237) 

6. and. (j . le.258)) .or . ( (j . ge . 277) -and. (j . le.283) ) ) ) then 

go to 25 

else if(i.eq.l20) then 
zi (1 ,m) — 1 . 

eise i f ((i .eq. 122) .and. ( ( (j .ge = ?39) -and. (j .le.258) ) .or . ( (j .ge.273) 
6. and. (j. le.283)))) then 
go to 25 

else i f (i . eq .122) then 
zi (1 ,m) *-l . 

else i f ( (i .eq. 124) .and. ( ( (j .ge.243) .and . (j . 1 e . 258) ) .or . ( (j .ge . 272) 
6. and. (j . le.281)))) then 
go to 25 

else if(i.eq.l24) then 
z i ( 1 , m) *- 1 . 

else if ((i .eq. 126) - and. ( ( (j .ge.246) .and. (j . le.264) ) .or . ( (j .ge.267) 
6. and. (j . le.279) ) ) ) then 
go to 25 

else if(i.eq.l26) then 
zi (1 ,m) *-l . 

else i f ( (i .eq. 128) -and. (j .ge.253) .and. (j . le.276) ) then 
go to 25 

else if(i.eq.l28) then 
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c 
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c 

c 

c 
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zi (1 ,m) 1 . 

else if ( (i .eq. 130 ) .and. (j .ge.268) .and . (j . 1 e, 276) ) then 
go to 25 


else if (i .eq. 1 30) 

then 

zi (1 f m)*-l. 


else if (i .eq. 132) 

then 

zi (1 ,m) =- 1 . 


go to 20 


else if (i .eq. 134) 

then 

zi (1 ,m) *-l . 


go to 20 


else i f (i .eq. 136) 

then 

zi (1 f m)—l. 


go to 20 


else i f (i .eq. 138) 

then 

zi (1 f m) — 1 . 


go to 20 


else if (i .eq. 140) 

then 


z i (1 ,m) *-l . 
go to 20 
end i f 


conti nue 
conti nue 
cont i nue 


******************** 


* * ft ft * i*c * ft * 5*? * * * ft ft ft ft ft ft ft ft ft 


ft ft ft ft ft ft ft ft ft ft ft ft ftft ft ftft ft ftft ft ft ftft ft**ft 


this portion of the program looks for undulations which may have 
been created by the surface fitting subroutine, and imposes the 
minimum depth filter where any node in the random field with a 
value of less than or equal to 0.01 mm. is reassigned a value of 
0.0 mm 


******************************** 


ft* 


ft ft ft ft ft ft ft ft ft ft ft * * * * * * * ft * * ft * * * * 


do 260 i *1 i nx i 
do 270 j=l,nyi 

if (zi (i ,j) .eq.-l.) then 
go to 270 

else i f (zi (i * j) * ie.0. 1) then 
z i ( i , j ) =0 . 0 
end » f 


conti nue 
conti nue 

*********************************************************************** 
calculate the average rainfall depth:E(Y) in the random field 
*********************************************************************** 


do 240 i*l,nxi 
do 250 j=l,nyi 

if (zi (i ,j) .eq.-l.) then 
go to 250 
end i f 
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21*0 
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al-zi (i , j)+al 
dl-dl+1 
continue 
continue 

avedepth=al/dl 


****************** * * * * * * * * ** * * 


* * * * * * * * * * * * * * : 


* * * * * * * * * * * * * * * * * * * * * * * 


this portion will calculate the variance of the rainfall depth: VAR (Y) 
of the random field. 

*********************************************************************** 


1 *0 


c 


c 


160 

155 


360 

350 

c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


do 155 i “1 # nx i 
do 160 j-1 ,ny i 

i f (zi (i , j) .eq.-l .) then 
go to 160 
end i f 

1*1 + 1 

a2-((zi (i * j) -avedepth) **2.)+a2 
continue 
continue 

vardepth*a2/ (1-1) 
print, ' ' 

print 360, avedepth 
print,' ' 

print 350 ,vardepth 
print, ' ' 

format ( 'the average point depth* f 10 . 3 * ' mm.') 

format('the variance of the point depth* ' , f 10 . 3 * ' mm squared') 


*********************************************************************** 


this portion of the program will determine the two dimensional 
spatial correlation of the random field. The technique used is 
a radial sweep sampling technique. The correlation will be 
determined for lag distances which range from 0.0 to 6*0 km. 

*********************************************************************** 

1-0 

do 170 j - 1 , ny i 
do 180 i-l,nxi 

i f (zi (i , j) .eq.-l .) then 
go to 180 
end i f 


*********************************************************************** 


sweep the left hand boundary of the matrix vertically upwards to 
nyi from the one level above level j of the pivot point zi(i,j) 
to the boundary point zi(l,k) 

*********************************************************************** 
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do 190 k=j + l,nyi 
1 = 1 


******** * * it it it ititit it it it it it it it it it it it it it 


it it it ititit it it it it it 


it it 


it itit it it it it it it it it it it it it it it it it it it 


check to see if zi(i,j) is located at the upper left side of the 
grid 


ititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititit 


if ((i .eq. 1) .and, (j .eq.nyi) ) then 
go to 190 
end i f 

del tai=1-i 
del taj=k-j 


****************************** it it it it it it it it it it it it it it it it it it it it it it it itit it it it it it it itititititititit 


test for the smaller absolute value of deltai or deltaj 
and use as a step variable, unless it's equal to zero 


ititit it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


it it it it it it it it it it it it it it it it it it it it it 


it it it it it it it 


if (abs (deltai) .eq.O.) then 
1 l=abs (deltaj) 

else if (abs (deltaj) .eq.O.) then 
1 l=abs (deltai) 

else if ( (abs (deltai) .1 t.abs (del taj) ) ) then 
1 l=abs (del tai) 

else 

1 l=abs (deltaj) 
end i f 


itititidtititititititititititititititititititititititititititiiitititiiititititititititititiiititititititititititititicititititiiitititit 


find the largest common divisor 


do 210 k2= 1,11 

ab=abs (k2-l- 1 1) 
ai=del tai/ab 
i ai=del tai/ab 
bi=ai -iai 
aj=del taj/ab 
jaj=del taj/ab 
bj=aj - jaj 


********************************************************************* 


if both bj and bi equal zero, we have the largest common divisor 
********************************************************************* 


if ((bi .eq.O.) .and. (bj .eq.O.)) then 
go to 220 
end i f 
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c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 
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c 


continue 
conti nue 

k3=ab 


'c ft ft ft ft ftftftft ft ft 5V ft * * * * ft ft ft ft * Vs ft * ft A * * * * * ft ft ft ft ft ft * ft ft ft 5'; ft * * ft ft ft * ft * * * * 5': * * * * * * * ft ft ft ft ft ft 


if k3 equals 1, then only the boundary point and the pivot point 
would be included in this determination, which we do not want 

ft ft ft ft ft * ft ft ft ft * ft * ft ft ft ft * * * ft ft ft * ft ft * * * * * ft * ft ft ft * ft ft ft * * ft ft * ft * ft ft ft * * ft * ft ft it * ft * * ft * ft * * * * 


if(k3.eq.l) then 
go to 190 
end i f 


***************************ft****A)’(5l:****5't*** 


ft ft ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


calculate the increments between the points which lie on the ray 
in question 

ftftftftftftftftftftftftftftftTfeftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

do 230 1 2=0, k 3 

ftftftftft*ft*ftftftftft*ft*ftft*ft*ft*ftft*ftftft*ftft*ft*ftftft***ftftftft*ftft*ftftftftftftftft*ft*ftft*ftftftftftft 


ie and je are the x and y coordinates of those points which 
lie on the ray in question 

ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

i e*i + (1 2*i a i ) 
j as 1 + ( i ?ft i a n 

ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


check to see if this point value zi (ie,je) along the ray equals -1.0 
ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft ftftft ftftftftftftftft ftftftftftftftftftftftftftftftftftftftft 


i f (z i (i e, je) .eq . - 1 .) then 
go tn 230 

else 

ftftftftftftftftftftftftftftftftftftftftft*ftft*ftftft**ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

calculate the lag distance between zi(i,j) and each zi(ie,je) along ray 
and use this value as a counter for the correlation analysis. Round up 
or round down 


* ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft ft * ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


zz=sqrt ( ( (ie-i) **2.) + ( (j e-j) **2.) ) 
j j =sqrt ( ( ( i e- i ) **2 . ) + ( (j e-j ) **2 . ) ) 

22Z*Z2~j j 

if ( 222 . ge. 0.5) then 

jj=jj+l 

end i f 
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if (jj .le.105) then 

tl (jj)-((zi (i , j) -avedepth) *(zi (ie, je) -avedepth) )+tl (jj; 
bl (jj)* ( (2 i (i ,j) -avedepth) **2.)+bl (jj) 
b2 (j j) * ( (zi (ie, je) -avedepth) **2.)+b2 (j j) 
pai rs (j j) *pai rs (j j) +1 
end i f 


end i f 
conti nue 
conti nue 


************************ *** 


*****: 


********** 


* * ft * * ft * * * * * * * * * * ft * * * * * * * 


sweep the top of the boundary of the matrix from left to right to nxi 
with nyi from the same level as level j of the pivot point zi (i , j) 
to the boundary point zi (l»k) 


************************************ ■>•<*&********■. 


ft ft ft * * * * * )*( * 3 f C 3*C * * * ft ft ft ft ft 


do 280 1 »*2, nx i 
k=ny i 


************************************** 


* ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft * ft ft 


check to see if zi(i,j) lies on the top row 


ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ftftftftftft ft ft ft ft ft * * ft ft * ft ft * ft ft ft *ft ft ft ft ft ft ft *ft ft ft ft ft * ft ft ft ft * ft ft * * - ft * ;c * ft 


if (j .eq.nyi) then 
1-i+l 
end i f 

del tai*l-i 
del taj*k-j 


*******ft******************************************************** ,c>n<K * 


test for the smaller absolute value of delta! or deltaj 
and use as a step increment, unless it's equal to zero 


****************************************** 


ft ft ft ft ft ft ft ft ft ft ft ft * * ft ft ft ft ft ft ft ft 


if (abs (deltai) .eq.O.) then 
1 l«abs (del taj) 

else if (abs (deltaj) .eq.O.) then 
1 1-abs (deltai) 

else if ( (abs (del tai) . 1 1 .abs (del taj) ) ) then 
1 l*abs (deltai) 

else 

1 l*abs (del taj) 
end i f 


ft ft ft ft * ft * ft * * * * * * * * * * * ft ft * * * * * * * 


ft ft ft ft ft ft ft ft ft ft * ft ft ft ft ft * * * 


ft ft ft ft ft* ft ft ft ft ft ft ft ft ft ft ft ftftft* 


find the largest common divisor 


************************ * * * * * * * * * 


: ft ft ft ft ft ft ft ft ft ft 3’c ft ft ft ft ft * ft * 3*? ft ft ft 3*C ft 3’c ft ft ft ft ft ft ft ft 3 * 


do 290 k2*l, 1 1 

ab=abs (k2— 1 — 1 1) 
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c 

c 

c 

c 

c 

c 

c 

c 


290 

265 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ai=del tai/ab 
iai=del tai/ab 
bi=ai -i ai 
aj=del taj/ab 
jaj=del taj/ab 
bj-aj-j aj 


* * * * * ******** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


if both bj and bi equal 2 ero, we have the largest common divisor 


********************************************************************* 

if ( (bi .eq.O.) .and. (bj .eq.O.) ) then 
go to 265 
end i f 
continue 
continue 

k3=ab 


************************************* 


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


if k3 equals 1, then only the boundary point and the pivot point 
would be included in this determination, which we do not want 


********************************************************************* 

if(k3*eq.l) then 
go to 280 

a r\ W | f 


*********************************** 


**** 


* * * * * * * * * * * * * * * * ****** 


calculate the increments between the points which lie on the ray 
in question 


***************************************************** ««******** ****** 

do 300 1 2*0, k3 


********************************************************************* 

ie and je are the x and y coordinates of those points which 
lie on the ray in question 


********************************************************************* 


ie*i+(12*iai) 

je*j+(12*jaj) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

300 

280 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


* * * * * * * * * * * * * * * * * * 3 *? * * * * 3*c * * * s'c * * * * * * * 

check to see if this point value zi 


ft ft ft ft ft * * * Ve ft * ft ft ft ft ft * ft ft ft ft ft * ft ft ft ft ft * * * ft * * 

(ie.je) along the ray equals -1.0 


****** ** * 3* 3*C * >’? 3’: * * >’c * * * 3*C * * 3*C 3*C 3*C * 


3 ‘c ;*c 3’: s'c ?’c * 3'? * 3’: s'c 




** 


* * * * * s'c * * 3*c * s’c * ;'c s’c * * * * * * * * * 


i f (2 i (i e, je) .eq.-l .) then 
go to 300 

else 

********************************************************************* 

calculate the lag distance between zi (i ,j) and each zi (ie 9 je) along ray 
and use this value as a counter for the correlation analysis. Round up 
or round down 


* ********** * * * * * 3 f c 3’c * * * * * 3*C * * 3 C * * * * * * * * * * * * * 


*** 


* * * * * * * * * S’C ?’c * 3*: 3’C >'c 3*C * * 3*C * 3’? * * 


zz=sqrt ( ( (i e- i) **2 .) + ( (j e-j) **2 .) ) 
j j-sqrt ( ( (i e- i ) **2 .) + ( (j e-j) **2 .) ) 
zzz=zz-jj 

i f (222. ge. 0 . 5 ) then 

jj*jj + l 

end i f 


if (j-j.le.i 05 ) then 

tl (j j)» ((zi (i , j) -avedepth) * (zi (ie, je) -avedepth) ) +t 1 (jj) 
bl (jj) 5 * ( (zi (i . j) -avedepth) **2.)+bl (j j) 
b2 (jj)*((zi 0 e, je) -avedepth) **2.)+b2 (jj) 
pai rs (j j) “pai rs (j j) +1 
end i f 


end i f 
conti nue 
cont i nue 


***************************** 


* * 3*C 3 \ * 3*C S'C * 3*C & 3’c * 


* * Vc * * 3*C 3*C 3*C 3*< 3*? 3*C 3*< 3’C * * * * 3’c * * * * 3’« * * 


sweep the right hand boundary of the matrix vertically downward from 
nyi to the same level as level j of the pivot 
point zi (i , j) to the boundary point zi (1 , k) 


**************************************** 


3V **** 3*C 3*C 3*C 3*C ** s’CS’f* 3 r C * *** * * ** **3*** 


check to see if we are on the top row of the grid, if so neglect 
sweeping the right side of the grid and instead, advance to a new 
value of both i and j 


************** ****** *sV ****:’:* 


* *** * *3*; s’c 3*5 * * *3’c* * 


3’c**** *3’c * * * * * * * * * * * * 3V 3^C * 


if (j .eq.nyi) then 
go to 170 
end i f 


c 


do 310 k=ny i 1 * j ,-l 
1 =nx i 
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********************************************************************* 


check to see if zi(i,j) lies at the upper right corner of the mesh or 
if zi (i , j) lies along the right hand boundary, if so we are done 


* * * * * * * * * * it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


if ( (i .eq .nxi ) .and . (j .eq .k) ) then 
go to 180 

else if(j.eq.nyi) then 
go to 170 
end i f 

del tai«l-i 
del taj*k-j 


***************************************** 


*******! 


* * * * * * * * * * * * * * * * * * * 


test for the smaller absolute value of deltai or deltaj 
and use as a stepping increment, unless i t ; s equal to zero 


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


it it it it it it it it it it it it itit it it it it it it it it itit **** 


i f (abs (del tai) .eq.O.) then 
l l=abs (del taj) 

else i f (abs (del taj) .eq.O.) then 
1 l=abs (del tai) 

else i f ( (abs (deltai) .1 1 . abs (del taj) ) ) then 
1 l=abs (del tai) 

else 

1 l=abs (del taj) . 
end i f 


***************************** *** * * 


* * * * * * * * * * * * * * * * * * * * * * it 


it * * * * * it it it it * 


find the largest common divisor 


********************************************************************* 


do 320 k2»l, 1 1 

ab=abs (k2-l-l 1) 
ai =del tai /ab 
iai»del tai/ab 
bi**ai -i ai 
aj-del taj/ab 
jaj*del taj/ab 
bj-aj-jaj 


********************************************************************* 
if both bj and bi equal zero, we have the largest common divisor 

it it it it it it it it it it it it *********** * * * * * **** * * * * * * * * * * * * * * ** * * * * * * ** * ** * * ** ****** 


if ((bi .eq.O.) .and. (bj .eq.O.) ) then 
go to 325 
end i f 
conti nue 
conti nue 

k3*ab 
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********************************************************************* 


if k3 equals 1, then only the boundary point and the pivot point 
would be included in this determination, which we do not want 


**** * *** * ft ft ft * * * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * * ft ft ft 


ft ft ft ft ft ft ft ft * ft ft ft* * ft ft 


********* 


if (k3*eq. 1) then 
go to 310 
end i f 


****************************** 


** 


* * * * ft ft ft ft ft ft ft ft ft ft ft * ft * * * * * ft * * * ft ft ft ft * * * ft * * * 


calculate the increments between the points which lie on the ray 
in question 


************************* ft ** * ft * * * * ft ft * * * * * * * ft * ft * * * 


* * ft * * * * * * * * * ft ft ft ft * ft * * 


do 330 1 2-0 , k3 


********************************************************************* 

ie and je are the x and y coordinates of those points which 
lie on the ray in question 


********************************************************************* 


ie*i+(12*iai) 

je-j+(12*jaj) 


********************************************************************* 

check to see if this point value along the ray equals “1.0 

* * ****** * * * ft ft ft ft ft ft ft ft * ft * ft ft ft ft * * * * * * * * * * ft * * * * * * * ft * * * * * * ft * * * * * * ft * * 5 ? * 5C * ft * * * 


i f (zi (i e, je) .eq.- 1 .0) then 
go to 330 

else 

********************************************************************* 

calculate the lag distance between zi(i,j) and each zi(ie,je) along ray 
and use this value as a counter for the correlation analysis. Round up 
or round down 

********************************************************************* 


zz*sqrt ( ( (ie-i) **2.) + ( (je-j) **2.) ) 
j j=sqrt (((ie-i) **2.) + ( (je-j) **2.) ) 
zzz*zz-j j 

i f (zzz.ge.0.5) then 
jj-jj+1 

end i f 


i f (j j . le. 105) then 


c 

330 

310 

c 

c 

180 

170 

c 

c 

c 

c 

c 

c 

c 

345 

c 


c 

c 

c 

c 

c 

c 

c 


340 

346 

c 

c 

c 


c 

c 

c 

c 


tl (jj) = ((zi (i , j) -avedepth) * (zi (ie, je) -avedepth) )+tl (jj) 
bl (jj)* ((zi (i ,j) -avedepth) **2.)+bl (jj) 
b2 ( j j ) - ( (z i (ie, je) -avedepth) **2.)+b2 (jj) 
pairs (j j) =pairs (jj) + l 
end i f 


end i f 

continue 

continue 


continue 

print, 'row '.j,' is done' 
continue 


********************************************************************* 


determine the spatial correlation corfficient at this lag distance 


********************************************************************* 


continue 

do 340 jj “0,105 
if(jj*eq.O) then 
y (1) “1 .0 
x (1) *0. 

else 

y (jj+l)“tl (j j) / (sqr t (bl (j j) *b2 (j j) ) ) 

x3“jj 
x4*x 3/5 
x(Jj+l)“x4 
end i f 


**************************************************************** 


J. J L A A A A A 


draw the zero line for the plot legend 


ft * ft ft ft ft ****** * ft ft ;'c * ft ft ft it ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


ft ft ft ft ft ft ft 


ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


x2(jj+l)=x4 - 

y2(jj+l)=0. 

write (n!n,346) x (jj+1) ,y(jj+l) .pairs (j j ) 
continue 

format (2x,f4> I,f8.4,fl3*l) 
k 10-105 


i f (choice. ne. 1) then 
go to 35 
end i f 

this section of the program starts the disspla plotting routines 
for the correlation function 

print, 'entering the plotting routine for the correlation function' 

cal 1 comprs 

call blowup (0.9) 

call page (12.2222,9*4444) 
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call basal f ( 'stand ') 
call mxl*al f ( 'greek 1 h*) 
call yaxang(O.O) 

call xname ( 'Spati al Lag *n) (k i lometers) $ 100) 

call yname ( 'Correl at i on Coefficient: *r (n) ) $ ', 100) 
call area2d (9»0,5-0) 

call head i n ( 'Spat i a 1 Correl at i on$ ' , 100 , 1 . 5. 1) 

call messag ( 'Storm Day$ ', 9. 7 • 1 . 5 • 55) 

call messag (amnth.l*. 6-9. 5-25) 

call messag 1,7 -8. 5*25) 

call intno(i iday , 7 .5 .5 • 25) 

call intno(i iyear, 7-9. 5*25) 

call thkfrm(O.Ol) 

call frame 

call graf (0. ,3- ,21, - 1 • ,0.2, 1 .0) 

call poly3 

call curve (x,y,k 10,0) 
ca 1 1 thkcrv ( 1) 
call curve(x2,y2,kl0,0) 
call endgr (0) 
call endpl (0) 
call donepl 
c 

900 format ( 'storm day ', i 2, '/ ', i 2, '/ ', i 2) 
c 

35 continue 
end 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

/-* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


STORMDAY. FORTRAN 

The program executes all the algorithmns necessary to analyze the 
coarse mesh random field of total rainfall depth at Walnut Gulch, Az. 

This program was written by Neil M. Fennessey at M.l.T. 
during the course of his Master's Degree research into the 
Areal Distribution of Total Rainfall Depth. 


i wat 
i gage 
i month 
iday 
iyr 
zd 
xd 
yd 


amonth 

amnth 

avegage 

vargage 

stdevgag 

z i 

xi 

yi 

nxi 
nyi 
nx i 2 
ny i 2 


avedepth 

vardenth 

skwdpth 


lagl 
cor r 1 


area 

numpts 

totdpth 

el edpth 
aveeldpth 


definition of variables 

input variables 

watershed i «d. number 

ra ingage number 

month 

day 

year 

total station storm day rainfall (mm.) 
station spatial coordinate 
station spatial coordinate 

program variables 

storm day month 
storm day month 

average station depth: E (Yo) (mm.) 

variance of station depth: VAR(Yo) (sq. mm.) 

standard deviation of station depth (mm.) 

node total depth (mm.) 

node spatial coordinate (0.1 km.) 

node spatial coordinate (0.1 km.) 

number of columns ‘in the coarse mesh matrix 

number of rows in the coarse mesh matrix 

number of columns in the fine mesh matrix 

number of rows in the fine mesh matrix 

Moments 

average depth of the random field: E (Y) (mm.) 

variance of the depth of the random field: VAR (Y) (sq. mm.) 
coefficient of skewness of the depth of the random field 
C.S. (Y) (dimensionless) 

Spati al correlation 

lag distance (km.) 

spatial correlation of the random field at a particular lag 
Variance function 

area of the element in the variance function (sq. km.) 
(variable dimension) 

number of nodes comprising the variance function element 
summation of node point depths in each variance function 
element (mm.) 

depth of the variance function finite element (mm.) 
average depth of the varinace funtion elements of 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 


particular area:E(Y k) (mm.) 
vareldpth variance of the variance funtion elements of 
particular area:VAR(Y k) (sq. mm.) 
gamma variance function evaluated at element size of a 
particular area (dimensionless) 
xarea plotting variable of size area (sq. km.) 

ygamma plotting variable of the variance function 

Basin Boundary 

2 j matrix which creates a two level horizontal plane for 

. - Hraui nn a basin boundary 


dimension iwat(93) ,i gage (93) , i year (93) , imonth(93) 
dimension iday (93) (93) (93) (93) » a (3D 

dimension xi (147) ,yi (70) > w ^ (558) »*i (147.70) 
dimension iwk (13173) .amonth (6) ,zj (147.70) 
dimension xarea (31) .ygamma (31) .area (0:30) .gamma 0:30) 
dimension eledpth ( 5000 ) .aveeldph ( 0 : 30 ) .vareldph ( 0 : 30 ) 
dimension corrl (31) . lagl (30 ,xzero(31) ,yzero(31) .alpha (100) 
dimension 1 1 (1) .xkeyl (26) .ykeyl (26) ,xkey2 (26) .ykey2 (26) 
dimension xkey3 (26) . ykey3 (26) 

common work(J+0000) 
real 1 agl , 1 ag , 1 1 

data (amonth (i) , i = l ,5) / 'June 'July', 'Aug'. 'Sept', 'Oct'/ 
data. pi/3.14159265389793/ 

api*pi 

print, 'Are you linked to the IMSL and DISSPLA libraries?' 

print, 'enter the number of input records, currently 93 
i nput , nd 


c 

c 

c 

c 

c 

c 

c 

c 

c 


30 


*********************************************************************** 


the section reads in the storm data from f i 1 e84 and divides 
these coordinates in two (both x and y) for use in the coarse 
mesh random field. 




* * A * * ft * * * * ft * * * * * * * * * * * ft * 


do 30 i*l.nd 

read (84, 1000) iwat (i) , igage(i) , iyear (i) , imonth (0 
Sxd (i) ,yd (i) 

xd (i) =xd ( I ) /2 . 
yd (i) ®yd (i) /2. 
cont i nue 


iday (i) , zd (i) , 


c 

1000 format (i2,i3*lx.3i2,f6‘2,2(lx,f4.0)) 


i iday=iday (1) 
i i year* 1900 + i year ( 1 ) 
i i i = imonth (1) -5 
% print, ' 
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1005 

c 

c 

c 

c 

c 

c 

c 

c 


40 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


50 


1010 

1020 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


print 1005 * amonth (i i i) , i iday, i i year 

print, ' 

format ( 'storm day ',a4* i 3* i 5/) 

amnth=amonth (i i i) 


* A A A A A * A * * * * AAA A A A A A A A A A A A 


A A : 


AAA 


A A A A A A A A A A A A A A 


calculate the average gauge depth: E (Yo) 

A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A 


do 1*0 i=l,nd 
a5**zd (i)+a5 
d5-d5+l 
cont i nue 

avegage*a5/d5 


A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A 


A A A A A A A A A A A AAA A A A A 


this portion will calculate the variance of the gauge depth: 

VAR (Yo) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAA AAAA A AAAAAAAAAAAAAAAAAAAAAA 


1=0 


do 50 i *1 , nd 
11 = 11+1 

a4* ( (zd (i ) -avegage) .) +ai* 
conti nue 

vargage=a4/ (1 1 - 1 ) 
stdevgag=sqrt (vargage) 
pr i nt 1010, avegage 
pr i nt 1020, stdevgag 

format('the average gauge depth® ' , f 10 . 3. ' mm. '/) 

format ('the std. deviat. of the gauge depth* ', f 10 . 3 * ' mm squared'/) 

reset variables equal to zero 

a5*0.0 

d5-0.0 

a4=0.0 

AAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAA 

this portion generates the x and y coordinates of the nodes in 
coarse mesh matrix: xi and yi 

AAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAA 


nxi = U7 
ny i =70 
i z i =147 
nxi 1=146 
ny i 1=69 
nxi 2=nxi *2 
ny i 2*ny i *2 
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60 


70 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 


do 60 j“l ,nxi 
xi (j)=*j 
cont i nue 
do 70 i -1 # ny i 
y i (i) =i 
conti nue 


ftftftft**ftft*******************5W:*ft***ft*ft*ftftft 


invoke the i MS L bivariate surface interpolator subroutine IQHSCV 
to generate the coarse total rainfall depth surface 




cal 1 iqhscv (xd t yd,zd,nd,xi ,nxi ,y i ,ny i ,zi , i zi , iwk ,wk, ier) 


*************************************** 


* * ft * * * * * * * * * V? ft ft * ft ft ft ft ft ft ft ft ft ft ft * ft ft ft 


this section of the program creates the numerical watershed boundary 
filter* It assigns the nodes of the coarse mesh matrix outside of 
the Walnut Gulch basin random field with depth values of -1. mm. 

The values generated by bivariate surface interpolator for nodes 
within the random field are left intact and untouched. 


*********************************************************************** 


nxi2 refers to the number of columns in the matrix 
nyi2 refers to the number of rows in the matrix 

do 10 i*2,nyi2,2 
do 20 j ""2 v nxi2» 2 


l-j/2 
m^i /2 

These logic statements define the coarse mesh basin boundary. 

if ((i . eq . 2) ) then 
zi (1 

go to 20 

else i f ( (i .eq.4) ) then 
zi (1 ,m) — 1 . 
go to 20 

else i f ( (i .eq.6) ) then 
z i (l ,m) »-l . 
go to 20 

else if (-(i .eq.8) ) then 
zi (1 

go to 20 

else i f ( (i .eq . 10) . and . ( ( (j . ge . 1 26) . and . (j . 1 e . 128) ) -or . ( (j .ge . 148) . and . 
& (j . le. 150) ) ) ) then 
go to 25 

else if(i.eq.lO) then 
z i (1 ,m) *-l . 

else i f ( (i .eq. 12) .and . ( ( ( j .ge.88) .and . (j . 1 e. 90 ) ) .or . ( (j .ge. 126) 

&.and. (j . le. 132) ) .or . ( (j .ge. 146) .and. (j . le. 1 50) ) ) ) then 
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go to 25 

else if(i.eq.l2) then 
zi (1 ,m) *-l . 

else i f ( (i .eq. 1 4) .and. ( ( (j .ge.88) .and. (j . 1 e.94) ) .or . ( (j .ge. 126) 

S.and. (j . le. 138) ) .or . ( (j ,ge. 11*0) .and. (j . 1 e. 152) ) ) ) then 
go to 25 

else if(i.eq.ll*) then 
zi (1 ,m) *-l . 

else i f ( (i .eq. 16) .and. ( ( (j .ge.88) .and . (j . 1 e.94) ) .or . ( (j .ge. 1 16) .and. 

6 (j . le. 160) ) ) ) then 
go to 25 

else if(i.eq.l6) then 
zi (1 ,m) — 1 . 

else i f ( (i .eq. 18) .and. ( ( (j .ge.88) .and . (j . 1 e. 100) ) .or . ( (j .ge. 1 16) .and. 

6 (j . 1 e. 162) ) ) ) then 
go to 25 

else if(i.eq.l8) then 
zi (1 ,m) «-l . 

else i f ( (i . eq . 20) .and . ( ( ( j .ge.88) . and . (j . 1 e. 102) ) .or . ( (j .ge. 1 16) • and. 

6(j.le.l61*)))) then 
go to 25 

else if(i.eq.20) then 
zi (1 ,m) — 1 . 

else i f ( (i . eq .22) .and. ( ( (j .ge .80) .and. (j . 1 e . 82) ) .or . ( (j . ge . 84) .and . 

6 (j . le. 102) ) .or . ( (j .ge. 1 18) .and. (j . 1 e. 166) ) ) ) then 
go to 25 

else if(i.eq.22) then 
zi (1 ,m) »-l . 

else 1 f ( (i .eq.24) .and. ( ( (j .ge .82) .and . (j . I e. 106) ) -or . ( (j .ge. 1 18) .and. 

& (j . le. 166) ) ) ) then 
go to 25 

else if (i. eq.24) then 
zi (1 ,m) *-l . 

else i f ( (i .eq = 26) - and . ( ( (j . ge . 82) . and . (j . 1 e . 106) ) .or . ( ( j . ge . 1 18) . and . 

6 (j . le. 166) ) ) ) then 
go to 25 

else i f ( I . eq . 26) then 
z i (1 ,m) =*- 1 . 

else i f ( (i .eq ..28) • and . ( ( (j .ge .84) .and . (j . 1 e . 106) ) .or . ( ( j .ge. 1 18) . and . 

& (j . le. 170) ) ) ) then 
go to 25 

else if(i.eq.28) then 
2 i ( 1 ; m) ■- 1 . 

else if ( (i .eq.30) .and. ( ( (j .ge.84) .and. (j . le. 108) ) .or . ( (j .ge. i iO) .and. 

6 (j . le. Ill*) ) .or . ((j .ge. 1 16) .and . (j . 1 e. 172) ) ) ) then 
go to 25 

else if(i. eq. 30 ) then 
zi (1 ,m) *-l . 
go to 25 

else if ( (i .eq. 32 ) .and. (j .ge.82) .and. (j . le. 170) ) then 
go to 25 

else if (i .eq.32) then 
zi (1 ,m)*-l. 

else i f ( (i .eq. 34) .and. (j .ge.82) .and. (j . le. 174) ) then 
go to 25 

else i f ( i . eq . 34) then 
zi (1 ,m) *-l . 
go to 25 

else if ( (i .eq.36) .and. (j .ge.82) .and. (j . le. 174) ) then 
go to 25 
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then 


else if (i .eq.36) then 
zi (1 ,m) *-l . 

else if ( (i .eq.38) .and. (j .ge.84) .and. (j . le. 174) ) 
go to 25 

else if (i .eq.38) then 
z i (1 ,m) =- 1 . 

else if ( (i .eq.1+0) .and. (j .ge.82) .and. (j . le. 172) ) then 
go to 25 

else if(i.eq.i+0) then 
zi (1 ,m) . 

else if ( ( i . eq . 42) . and . ( ( ( j . ge . 32) . and . (j • 1 e . 54) ) . or . ( (j . ge . 70 ) . and . 

& (j . 1 e .74) ) .or. ( (j .ge .78) - and. (j . 1 e. 172 ) ) ) ) then 
go to 25 

else i f (i .eq.42) then 
zi (1 ,m) *-l . 

else if ( (i .eq.44) -and. ( ( (j .ge. 52 ) .and. (j . le.56) ) .or. ( ( j .ge.58) .and. 

& (j . le. 172 ) ) ) ) then 
go to 25 

else i f (i .eq.44) then 
z i (1 ,m) =- 1 . 

else i f ( (i .eq.46) .and. (j .ge.52) .and. (j . 1 e. 174) ) then 
go to 25 

else if (i .eq.46) then 
zi (1 ,m) =-1 . 

else if ( (i .eq.48) .and. (j .ge.54) .and. (j . le. 174) ) then 
go to 25 

else i f (i .eq.48) then 
z i (1 ,m) =*-l . 

else if ((i .eq.50) .and. ( ( (j .ge.58) . and . (j . 1 e. 174) ) -or . ( ( j .ge. 180) .and. 

6 (j . le. 182) ) ) ) then 
go to 25 

else if (i. eq. 50 ) then 
zi (1 ,m) *-l . 

else if ((i .eq.52) .and. (j .ge.58) -and. (j . le. 182) ) then 
go to 25 

else if (i. eq. 52 ) then 
zi (1 ,m) =- 1 . 

else if ((i.eq.54) -and. (j.ge.57) -and. (j.le.191)) then 
go to 25 

else if (i.eq.54) then 
z i (1 ,m) =-l . 

else if ( (i .eq.56) -and. (j .ge.54) .and. (j . le. 195) ) then 
go to 25 

else if (i. eq.56) then 
zi (l,m)«- 1. 

else if ((i.eq.58) -and. (((j.ge.36) -and. ( j . 1 e . 38) ) -or. ((j. ge.52) .and. 

& (j • le. 196) ) ) ) then 
go to 25 

else if (i.eq.58) then 
z i (1 ,m) *-l . 

else if ((i .eq.60) .and. (j .ge.34) .and. (j . le. 198) ) then 
go to 25 

else if (i. eq.60) then 
zi (1 ,m)=-l. 

else i f ( (i .eq. 62) .and. (j .ge.34) .and. (j . le. 206) ) then 
go to 25 

else i f (i . eq .62) then 
z i (1 ,m) =- 1 . 

else if ( (1 .eq.64) .and . ( ( (j .ge. 33) .and. (j . le.208) ) -or . ( (j - ge . 2 18) .and. 

& (j . 1 e.221) ) ) ) then 
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go to 25 

else i f (i .eq.64) then 
2 i (1 ,m)*-l. 

else if (0 .eq.66) .and, (j .ge.32) .and. (j . le.222)) then 
go to 25 

else i f (i ,eq .66) then 
zi (1 ,m) — 1 . 

else if ((i .eq.68) .and. (j .ge.30) .and. (j . le.224) ) then 
go to 25 

else if (i .eq.68) then 
zi (1 

else if ((i .eq. 70 ) .and. (j .ge.28) .and. ( j . 1 e . 226) ) then 
go to 25 

else if(i.eq. 70 ) then 
zi (1 ,m)*-l . 

else i f ( (i .eq.72) .and . (j .ge.25) .and . (j . 1 e. 226) ) then 
go to 25 

else if (i .eq. 72 ) then 
zi (1 ,m) *-l . 

else if ((i .eq.74) .and. (j .ge.21) .and. (j . 1 e . 2 2 6) ) then 
go to 25 

else if (i .eq.74) then 
2 i (l ,m) *-l . 

else i f ( (i .eq.76) -and . (j . ge. 17) .and . ( j . 1 e.226) ) then 
go to 25 

else if (i .eq.76) then 
z i ( 1 # m) — 1 . 

else i f ( ( i . eq - 78) .and . (j .ge . 13) .and . (j . 1 e. 226) ) then 
go to 25 

else if (i .eq.78) then 
zi (1 ,m) — 1 . 

else if ( ( i .eq.80) .and. (j . ge . 1 1) . and . (j . Ie.228)) then 
go to 25 

else if (1 .eq.80) then 
zi (1 ,m)*-l. 

else i f ( (i .eq .82) . and . (j . ge . 10) .and . (j . 1 e . 230 ) ) then 
go to 25 

else ifO.eq.82) then 
zi (1 ,m) *-l . 

else if (0 .eq.84) .and. (j .ge. 12) .and. (j . le.233) ) then 
go to 25 

else if (i .eq.84) then 
zi (1 .m) *-l . 

else if (0 .eq.86) -and. (j .ge. 14) .and. (j . le.234)) then 
go to 25 

else i f (i .eq.86) then 
zi (1 ,m) *-l . 

else i f ( (i .eq .88) .and. (j .ge. 15) .and. (j . le. 235 ) ) then 
go to 25 

else if (i .eq.88) then 
zi (1 ,m)«-l. 

else i f ( (i .eq . 90 ) .and . (j . ge . 17) • and . (j . 1 e. 238) ) then 
go to 25 

else i f (i .eq. 90 ) then 
zi (1 f m)*-l. 

else i f ( (i .eq .92) .and . (j .ge . 18) .and . (j . 1 e . 238) ) then 
go to 25 

else if (i .eq. 92 ) then 
zi 0 ,m) *-l . 

else i f ( (i .eq .94) .and . (j . ge . 2 1) . and . (j . 1 e . 238) ) then 
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go to 25 

else i f (i .eq.94) then 
2 i (1 ,m) =-l . 

else if ((i .eq.96) -and. (j .ge.23) .and. (j . le.238)) then 
go to 25 

else if (i .eq.96) then 
zi (1 ,m) =- 1 . 

else i f ( ( 1 . eq • 98) .and. (j .ge.25) .and. (j . le.239) ) then 
go to 25 

else i f ( i . eq . 98) then 
zi (1 ,m) =-l . 

else if ((i .eq. 100) .and. (j .ge.35) .and. (j . le.2i+0) ) then 
go to 25 

else if(i.eq.lOO) then 
z i (1 ,m) «- 1 . 

else if ( (i .eq. 102) .and. (j .ge.U4) .and. (j . le.239) ) then 
go to 25 

else i f ( i . eq .102) then 
z i (1 ,m) — 1 . 

else if ((i.eq.101*) .and. (j.ge.67) .and. (j.le.21*3)) then 

. go to 25 

else i f (I .eq. 101*) then 
zi (1 ,m) — 1. 

else if ((i .eq. 106) .and. (j .ge.88) -and. (j . le.247) ) then 
go to 25 

else if (i .eq. 106) then 
zi (1 ,m)*-l. 

else i f ( (i .eq. 108 ) -and. (j .ge. 101*) .and. (j . le.252) ) then 
go to 25 

else if (i . eq . 108) then 
zi (1 ,m)=-l. 

else if ((i .eq.110) .and. (j .ge. 125) -and. (j . 1e.25l*) ) then 


go to 25 

else if(i.eq.llO) then 
zi (1 ,m) «-l. 

else if ((i.eq.112) .and. (j.ge.129) -and. (j.le.255)) then 


((j .ge.210) 


go to 25 

else if(i.eq.!12) then 
zi (1 ,m) «-l . 

else i f ( (i .eq. 114) .and. ( ( (j .ge. 135) .and. (j . 1 e. 138) ) - or . ( (j .ge. 140) 

& . and . (j . 1 e . 256) ) ) ) then 
go to 25 

else i f (i .eq. 1 14) then 
zi (1 ,m)— 1. 

else i f ( (i .eq. 1 16) -and. (((j.ge. 150 ) .and. ( j . 1 e . 200) ) .or 

& .and. (j . 1 e.257) ) ) ) then 
go to 25 

else if (i .eq. 116) then 
zi (1 ,m) *-l . 

else if ((i .eq. 118) -and. (((j.ge.153) -and. ( j . 1 e . 193) ) -or. ((j.ge.211*) 

6. and. (j.le.218)) .or. ( (j .ge.225) .and. (j . le.257) ) ) ) then 
go to 25 

else if (i .eq.118) then 
zi (1 ,m) — 1 . 

else if ((i .eq.120) .and. ( ( ( j .ge.158) -and. (j . le. 189) ) -or. ( (j .ge.237) 

6. and. (i.le.258)) -or. ( (j .ge.277) -and. (j . 1 e. 283) ) ) ) then 


go to 25 

else if (i .eq.120) then 
zi (1 ,m)=-l. 

else if ((i .eq.122) .and. (((j .ge.239) - and. (j . 1 e . 258) ) - or. ( (j .ge.273) 
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fc.and. (j . le.283)))) then 
go to 25 

else i f ( i . eq . 122) then 
z i (1 ,m) =-l . 

else i f ( (i .eq. 124) .and. ( ( (j .ge.21+3) .and. (j . le.258) ) .or . ( (j .ge.272) 
& . and . (j . 1 e . 28 1) ) ) ) then 
go to 25 

else i f (i .eq . 124) then 
zi (Km)®-!. 

else i f ( (i .eq. 126) .and. ( ( (j .ge.2i*6) .and. (j . le.264) ) .or . ( (j .ge.267) 
S.and. (j . le.279) ) ) ) then 
go to 25 

else i f (i .eq. 126) then 
zi (1 ,m)*-l. 

else i f ( (i .eq . 128) • and . (j . ge . 253) - and . (j . 1 e . 276) ) then 
go to 25 

else i f (i .eq. 128) then 
z i (1 ,m) *-l . 

else i f ( (i .eq . 130) . and . (j .ge . 268) .and . (j . 1 e. 276) ) then 


go to 

25 



else i f (i 

.eq . 

130 ) 

then 

zi (1 

,m) = 

- 1 . 


else i f (i 

.eq. 

132 ) 

then 

zi (1 

• m) = 

>- 1 . 


go to 

20 



else i f (i 

.eq. 

13U) 

then 

zi (1 , 

m) *- 

•1. 


go to 

20 



else i f (i 

.eq. 

136) 

then 

zi (1 , 

m) *- 

•1. 


go to 

20 



else i f (i 

.eq. 

138) 

then 

zi (1 , 

m) ■- 

■1. 


go tO 

20 



else i f (i 

.eq, 

.140) 

then 


21 (1 ,m) =-l . 
go to 20 
end i f 
c 

25 continue 

20 continue 

10 continue 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ftft ***** ft* ft* ****** ft ft* ft ft ft ft ft ft ft ft ft ft ft ft ft ft ftft ft ft ft ft * ft ftftft ftftft ft * ft ft ft ft ftftft ft ft ft ft ft ft ftft « ft ft ft ft ft 


this portion of the program looks for undulations which may have 
been created by the surface fitting subroutine, and imposes the 
minimum depth filter where any node in the random field with a 
value of less than or equal to 0.01 mm. is reassigned a value of 
0.0 mm 


* ft it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it ft ft ft ft ft ft 


ft ft ft ft ft ft ft ft ftft ft ft ft ft ft ftft ft ft ft ft ft ft ft ft 


do 80 i=l,nxi 
do 90 j=l,nyi 
if (zi (i »j) .eq.-l.) then 
go to 90 

else i f (zi (i , j) . le.0.01) then 
zi (i , j)=0.0 
end i f 
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90 

80 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


120 

110 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


conti nue 
continue 


ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * 


ftftftftftft 


ftftftft 


ft ft 


ft ft ft ft ft ft ft ft ft ft ft 


ft ftftftftftft 


calculate the average rainfall depth:E(Y) in the random field 


*********************************************************************** 


do 110 i=l,nxi 
do 120 j=l , nyi 


if {zi (i ,j) .eq.-l.) then 
go to 120 
end i f 

al=zi (i , j)+al 
d l*d 1+1 
continue 
continue 

avedepth*al/dl 

ft ft ft ft ft ft ft ft ft ft ft ft ftftftftftft ft ftftftft ft ft ft ft ft ft ft * ft ft ft ft 


****** ft ft ft ft ft ft ft ft ft ftftftftftft ft ft ft ftft ftft 


this portion will calculate the variance of the rainfall depth: VAR (Y) 
and the coefficient of skewness cf the rainfall depth: C.S.(Y) in the 
random field. 


ft*ft*ft*ftftft*ftftftftft*ftftftftftftftftftftft*ft**ftftft*ftftftft**ft*ft 


* * ft ft ft ft ft ft ft ft ft * * * * ft ft ft * * ft ft ft * ft ft * 


1 *=0 


do 130 i *1 , nxi 
do 140 j*l,nyi 

if (zi (i ,j) .eq.-l.) then 
go to 140 
end i f 

1*1 + 1 

a2*( (zi (1 , j) -avedepth) ft*2.)+a2 
a3«((zi (i ,j) -avedepth) **3-)+a3 
140 continue 
130 continue 

vardepth*a2/ (1-1) 
stdevdph=sqr t (vardepth) 

skwdpth*a3/ ( (1 - 1) * (stdevdph**3 .0) ) 
print 1030, avedepth 
print 1040, vardepth 
print 1045»skwdpth 

1030 format( / the average point depth* \f 10. 4. mm. 0 

1040 format ( 'the variance of the point depth* f 10 . 4 , ; mm 0 

1045 format('the coefficeint of skewness of the point depth* ' , f 10 . 4) 

c 

c reset variables equal to zero 


al=0.0 
a2*0 .0 
a3*0.0 
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*********************************************************************** 


this portion of the program will determine the two dimensional 
spatial correlation of the random field. The technique used is 
a bi-directional sampling technique. The correlation will be 
determined for lag distances which range from 0.0 to 6.0 km. 


************ **** ** ***** * ft* ft ft * ft * *** ft * * ft * * * * * 


ft ft ft * * * * * * * * * * * * * ft * * 


entering the incremental (changes spatial distance) loop 

do 150 k 1*0, 30 

1 1*0 . 
b 1=0. 
b2=0. 
d2*0 . 

nxi3=nxi-kl 
ny i 3-ny i -kl 

this part of the correlation determination sweeps from west to 
east across the random field. 

do 160 j=l,nyi 
do 170 »=l,nxi3 

if ((zi ( i , j ) . eq.-l .) .or . (2 i (i+kl,j) .eq.-l.)) then 
go to 170 

else 

tl* ( (zi (i , j) -avedepth) * (z i (i+k 1 , j) -avedepth) ) + t 1 
bl=((zi (i ,j) -avedepth) **2 .) +bl 
b2=((zi (i+kl.j) -avedepth) **2.)+b2 
d2*d2+l 
end 1 f 
continue 
conti nue 

this part of the correlation determination sweeps from the south 
to the north across the random field 

do 180 i=l,nxi 
do 190 j*l,nyi3 

i f ( (2 I (i ; j) - eq.-l.) .or . (z i (i , j+k 1) .eq.-l.)) then 
go to 190 

else 

1 1= ( (z i (i ,j) -avedepth) * (zi (i ,j+kl) -avedepth) ) +t 1 
bl*((zi (i ,j) -avedepth) **2.)+bl 
b2» ( (z i ( i , j+k 1) -avedepth) **2 . ) +b2 
d2=d2+l 
end i f 
continue 
conti nue 

calculate the correlation coefficient for this spacing 
el=0 

el=t 1/ (sqrt (bl) *sqr t (b2) ) 
corr 1 (k 1+1) =el 
rl-kl 
r2=r 1/5 
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c 


c 

150 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


1 agl (kl+1) *r2 
draw the zero 1 i ne 
xzero (k 1+1) =r2 
yzero (kl+1) =0. 

conti nue 

reset variables equal to zero 

t 1*0.0 
b 1*0.0 
b 2=0.0 
d2=0 .0 
el=0.0 
r 1=0.0 
r 2=0.0 
k 1=0 


******************************************** 


*** * ******* *** ** ********** 


this portion of the program samples the coearse mesh random field for 
function: gamma (area) beginning with elements of are 0.0 sq. km. to 
elements of 36 sq. km. The elements overlap are overlapped in the 
technique. 


**** * * ************ * * * ** ***** * 


* * * * * * * * * * * * * * * 


* * * * * * * * * * * * * 


** * * ** ** * * ** * * 


begin the loop which varies the length scale of the element 
do 220 m=0,30 

area (m) * ( (m*0 . 2) **2 • ) 

enter the random field at this area. Sweep the mesh from west to east 
and then south to north simultaneously. 

do 230 j-l,nyi-m 
do 21*0 i=l,nxi-m 

trip the element dimension counter 
kl=kl+l 

determine the depth of the individual element by averaging the total 
rainfall depth of each of the nodes comprising it. 

do 250 l*j,j+m 
do 260 k*i , i+m 

check to see if any of the node depths lie outside the random field 
i .e. equal -1.0 mm. 

if (z i (k , 1 ) .eq.-l.) then 
numpts=0 
totdpth=0. 
kl-kl-1 
go to 21*0 

else 

numpts=numpts+l 
totdpth=totdpth+zi (k,l) 


166 


end i f 


c 

260 continue 
250 continue 
c 

c the element depth is the average value of the point depths 
c which comprise the element 
c 

el edpth (k 1) =totdpth/numpts 
toteldph=toteldph+eledpth (kl) 
numpts=0 
totdpth*0.0 
c 

240 continue 

230 continue 

c 

c determine the average element depth: E (Y k) for this area 

c 

aveeldph (m) =toteldph/kl 
c 

c determine the variance of the element depth: VAR (Y k) for this area 
c 

do 270 k2=l f k 1 
c 

totvardp=totvardp+ ( (e 1 edpth (k2) -aveeldph (m) ) **2.) 


270 

c 

c . 
c 
c 
c 


220 

221 

c 

c 

c 


c 

c 

c 

c 

c 

c 


cont i nue 

vareldph (m) =totvardp/ (kl-1) 

determine the value of gamma (A) . Reset all values of gamma (A) 
greater than one equal to one for plotting purposes only. 

gamma (m) -vareidpn (m) /var depth 
xarea (m+1) -area (m) 
i f (gamma (m) .gt . 1 .0) then 
y gamma (m+1) =1.0 

else 

y gamma (m+1) =gamma (m) 
end i f 

toteldph=0. 
totvardp=0. 
k 1=0 

pr i nt22 1 f area (m) , gamma (m) 
conti nue 

format ( 'area- ',f5-2, ' gamma (A) = \ f 7 . 4 ) 

reset variables equal to zero 

toteldph=0.0 
totvardp=0.0 
bl=0 .0 
b2=0 .0 
b3=0.0 


it * & * * "k * it ft ft fc * it * * * 5*? ft * jV A A it * ?*< * A A ft * >V 5*c * ;'c * * * sV sV * >’c 5* j’c it it it * * * >’c * it it * it it it it s*c 5 V * * it * A * it 


This portion of the program will blank out the area outside of the 
watershed basin boundary for the purpose of creating a basin boundary 
for plotting purposes 
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************************************************************************ 

do 390 i*l,nxi 
do 410 j=l ,nyi 

if (zi (i,j) .eq.-l.O) then 
2 j (i , j) =0. 1 

else 

2 j (i.j)— 0.99 

end i f 


410 

390 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

430 

420 

c 

c 

c 

c 

c 

c 

c 

c 

c 


460 

1160 

1170 

1180 

c 

c 

c 

c 


c 


c 


c 


continue 
conti nue 


************************************************************************* 


this portion of the program looks for undulations which may have 
been created by the surface fitting subroutine, this second filter 
is only for plotting purposes 


Xftbltbl'itititititititititititititit it * * * * it it * it * * * it * * it * * it * 


it it it it 


* * * * * * * * * * * * ******* *** * ** * 


do 420 i *1 , nx i 
do 430 j=l ♦ ny i 

if ((zi (i,j) .lt. 0 . 01 ) .and. (zi (i.j) .gt.-l.O)) then 

zi (i.j)— 0.1 

else if ((zi (i ,j) .eq.-l.)) then 
zi (i , j) =0.0 
end i f 


continue 
conti nue 


**************************** 


*******; 


* * 


; * * * it * * * * * 


* * * * * * * * * * * * 


Write the storm day date, the first three moments of the random field 
and the numerical spatial' correlation and variance function results 

to f i le 91 

************************************************************************ 


write (91,1160) iyear (1) , i month (1) , i day (1) 
write (91, 1170) avedepth.vardepth , skwdpth 

do 460 i=l ,31 .. 

write (91,1180) lagl (i) .corrl (i) .area (i-1) .gamma ( 1 - 

continue 
format (3 • 2) 
format (3 (lx, f 7 >3) ) 

format (f 5- 2, lx.f 7- 3, lx.f 6.2, lx, f 6 • 3) 


1) 


********************************************* 


* it * it * * * it it it * it it it it it it it it it it it it it it it 


this portion of the code draws straight line segments to be 
plotted on the legend (coutour lines and basin boundary) 
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c 

c 

c 


c 

1*90 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


************************************************************************ 
do 1*90 j*208.233 


i “j ~207 
r 10=j 

rll=r 10/10.0 

xkey 1 (i ) =r 1 1 
ykeyl (i)=3*4 
xkey 2 (i) =r 1 1 
ykey2 (i)=2.8 
xkey3(*)=rll 

ykey3 ( i ) =“ 1 - 8 

continue 


* ****************************************** 


* * * ft * ft ft ft * ft ;'c * ft * X is is it is is is is 


this section of the program starts the disspla plotting routines 
for the correlation function 


* ************** is is is is is is is is it is is is is is is is is is is is is is is is is is is is 


is is is is ft * is is is * ft * is is is it is is is is is is is is i; is is is 


print, 'entering the plotting routine for the correlation function' 

call comprs 

call blowup (0.6063) 

call page (14-0196. 18* 1428) 

call physor (2-98688. 3- 1338) 

call basal f ( 'stand ') 

call mx4alf ( 'greek '. lh*) 

call yaxang(O.O) 

call xname( 'Spatial Lag *n) (k i lometers) $ M00) 
call yname ( 'Correl at i on Coefficient: *r (n) ) $ ', 100) 
call area2d (4*286.4.286) 

call headin ( 'Spatial Correlations ', 100, 1 .5, 1) 
call thkfrm(O.Ol) 
cal 1 frame 

call graf (0. , 1 . ,6* »“1 • *0.2. 1 .0) 
call poly3 

call curve(lagl,corrl,31.0) 
call tnkcrv(i) 

call curve (xzero.yzero, 3 1 . 0 ) 
call endgr(l) 

************************************************************************ 


this section of the program starts the disspla plotting routines 
for the variance function 


************************************************************************ 


print, 'entering the variance function plotting routine 
call physor (8.7009, 3* 1338) 

call xname ( 'Area (square k i lometers) S', 100) ^ 

call yname ( 'Var iance Function: *g) (Area) S 100) 
call area2d (4.286,4.286) 

call headin ('Var iance Functions ', 100, 1 -5. 1) 
call thkfrm(O.Ol) 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


cal 1 frame 

call graf (G. ,4* , 36* ,0. ,0. 1 , 1 .0) 
call poly3. 

cal l curve (xarea,y gamma, 31 »0) 
cal 1 endgr (2) 


ft ft ft ft ft * 5*c ft * * * * ft * ft ft :'c ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft f 




ft ft ft ft ft 


ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


entering the disspla routine for the contour plot 




* * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


print, 'enter the countour plot plotting routine' 


cal 1 

physor (2.9869.9*8136) 


cal 1 

area2d (10.0,4*762) 


cal 1 

reset ( 'yaxang ') 


cal 1 

xname ( 'Ki lometers$ ', 100) 


cal 1 

yname ( 'Ki lometers$ 100) 


cal 1 

headin( 'Walnut Gulch, ArizonaS 

M00, 1.5,2) 

cal 1 

headi n ( 'Ac=154*2 1 sq.km. $',100 

,1.0,2) 

cal 1 

i ntaxs 


call 

xintax 


call 

y intax 


cal 1 

messag ( 'Contour Interval: 2 mm 

.$ ', 100,0.3,4.25) 

call 

messag ( 'Storm Day$ ',9.8* 1 .5*5) 


call 

messag (amonth (i i i) ,4,7 *9.5*2) 


cal 1 

messag ( ',$ ', 1,8. 8, 5*2) 


cal 1 

i ntno (i iday,8*5.5*2) 


call 

i ntno (i i year ,8. 9* 5 *2) 


cal 1 

messag ( 'E (Yo) * ',6,0.45,0.8) 


cal 1 

real no (avegage,2, 1 .3,0.8) 


cal 1 

messag ( 'mm. ',3* 2. 0,0. 8) 


cal 1 

messag ( 'S.D. (Yo) * ',9.0. 1 ,0.5) 


cal 1 

r ea 1 no (s tdevgag , 2 , 1 . 3 , 0 . 5) 


cal 1 

messag('mm. ',3, 2. 0,0. 5) 


cal 1 

messag ( 'Legend ',6,7*9. 1 *5) 


cal l 

messag ( ' 1 sohyet L i ne ' , 12 , 8 *0, 1 

. 1) 

cal 1 

messag ( 'Catchment ',9, 8* 0,0. 7) 


call 

messag ( 'Boundary ',8, 8* 0,0. 5) 


call 

graf (0. , 2 .0, 30 .0 , 0 . , 1 .0 , 14 .0) 


call 

thkf rm(O.Ol) 


cal 1 

frame 


cal 1 

curve (xkey 1 ,ykey 1 , 26,0) 


cal 1 

dash 


call 

curve (xkey2,ykey2,26,0) 


cal 1 

reset ( 'dash ') 


call 

dot 


cal 1 

thkcrv (5) 


cal 1 

curve (xkey 3, y key 3 ,26,0) 


cal 1 

reset ( 'dot ') 


cal 1 

bcomon (40000) 


call 

conthn (0.04) 


plot 

the contours 


cal 1 

conmak (z i , nx i , ny i , 2 . ) 


cal 1 

coni in(0, 'sol id ', 'label ',1,7) 


cal 1 

coni in(l, 'dash Mabels ',1,4) 


cal 1 

conang ( 90 .) 



170 


call rasplr>(0.25) . . 

print, 'entering the total depth isohyet drawing routine 
call contur (2, 'labels 'draw') 

scribe the outline of the basin boundary as a separate contour line 

ca 1 1 reset ( 'conang ') 

call reset ( 'conthn ') 

call bcomon (1»0000) 

call conmak (zj .nxi ,nyi ,2.) 

call coni in (0, 'dot ', 'no 1 abel s ' , 5, 10) 

call raspln(0.25) . 

pr i nt, 'enter i ng the basin boundary drawing routine . , 

print,' *** this routine will require restarting, simply type ^ ^ 

print,' "start" (without the quotation marks) and hit return *** ' 

call contur ( 1 , 'nolabels ', 'draw ') 

call endpl (0) 

call donepl 

end 
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STORMWET. FORTRAN 


c 
c 

c The program executes all the algorithmns necessary to analyze the fine 

c mesh random field of total rainfall depth at Walnut Gulch, Az. 

c 

c This program was written by Neil M. Fennessey at M. I .T. 

c during the course of his Master's Degree research into the 

c Areal Distribution of Total Rainfall Depth, 
c 

c 

c 

c definition of variables 

c 

c i nput var iables 

c 

c iwat 

c igage 

c imonth 

c iday 

c iyr 

c zd 

c xd 

c yd 

c 

c fine mesh random field variables 

c 

c zi 

c xi 

c yi 

c nxi 

c nyi 

c 

c spatial distribution variables 

c 

c d total rainfall depth of the 0.01 sq. km. finite element* 

c y fraction of total area wetted to a depth Y greater than 

c or equal to y 

c x depth (mm.) 

c count summation of elements at a particular depth x 

c totcount summation of elements at a particular depth x 

g. totcnt2 summation of elements at a particular depth x 

c 
c 

c 

c 

dimension count (-2:200) ,a (5) .c (5) 
dimension iwat (93) . igage (93) * iyear (93) , imonth (93) 
dimension iday (93) .zd (93) ,xd (93) .yd (93) 
dimension xi (294) .yi (140) ,wk (558) .x (200) ,y (200) 
dimension totcnt2 (-1:200) ,zi (294. 140) 
c 

common /workl/iwk (44043) 
common /element 1/d (25000) 
c 

print, 'Are you linked to the 1 MS L library?' 
c 

print, 'enter the number of input records, currently 93 ; 
i nput ,nd 
c 

C ^^ft*A*A^A***A*******A*A*5 , c**V , c*)VVc*A**5V)V*yc***5 , f*?V:V5 , {*5 , c*5Vyc**^5 , c:V**5’c: , c*V<*?V*^^f*** 


node total depth (mm.) 

node spatial coordinate (0.1 km.) 

node spatial coordinate (0.1 km.) 

number of columns in the fine mesh matrix 

number of rows in the fine mesh matrix 


watershed i.d. number 

ra ingage number 

month 

day 

year 

total station storm day rainfall (mm.) 
station spatial coordinate 
station spatial coordinate 
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the section reads in the storm day station observation data from file84 


c 

c 

c 

c 

c 

c 


30 

c 

1000 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

40 

c 


50 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* *** ****** * * * * * * * ** * ******** * * * 


:***: 


** 


* * * * * * * * * * * * * * * 


do 30 i = 1 , nd 


read (84, 1000) iwat (i) , i gage (i) , iyear (i) , i month (i ) , i day (i ) ,zd (i ) , 
Sxd (i) ,yd (i) 
conti nue 


format (i2,i3*lx,3i2,f6*2,2(lx,f4.0)) 


print, ' 

pr i nt 1010, i month (1) , i day (1) , i year (1) 
pr i nt, ' 


************************************** 


** ******** **** ****************** 


this portion generates the x and y coordinates of the nodes in 
fine mesh matrix: xi and yi 


*************************** *** * * * * * * * * ** * ** ** * ** * * * * * * ** * * * * * * * * ** * **** 


nx i =294 
ny i * 1 40 
izi*nxi 
nxi 1*293 
ny i 1-139 

do 40* j*l ,nxi 
xi (j)*j 
continue 

do 50 k*l,nyi 
yi (k)*k 
continue 


* * * ******************** *** * * * * * * * * * * * * * * * * ** * * * * * * *** * * * * * * * * * * < 


****** 


invoke the IMSL bivariate surface interpolator subroutine IQHSCV 
to generate the coarse total rainfall depth surface 

*********************************************************************** 


cal 1 i qhscv (xd, yd,zd, nd, xi , nxi ,y i , ny i , z i , i z i , i wk , wk , i er) 
*********************************************************************** 


this section of the program creates the numerical watershed boundary 
filter. It assigns the nodes of the fine mesh matrix outside of 
the Walnut Gulch basin random field with depth values of -1.0 mm; 

The values generated by bivariate surface interpolator for nodes 
within the random field are left intact and untouched. 


****************************************************** : 


*************** 


nxi refers to the number of columns in the matrix 
ny i refers to the number of rows in the matrix 


173 


do 10 i*l,nyi 
do 20 j=l ,nxi 

if (j .eq.nxi + 1 ) then 


z i ( j , i 

)=- 

1. 


go to 

20 



else i f ( (i 

■ eq 

. 0 ) 

then 

z i ( j , i 

) — 

1. 


go to 

20 



else i f ( (i 

•eq 

.2)) 

then 

z i ( j , i 

) — 

1 . 


go to 

20 



else i f ( (i 

•eq 

. 3 )) 

then 

z i ( j , i 

)»- 

1 . 


go to 

20 



else i f ( (i 

•eq 

. 4 )) 

then 

z i ( j , i 

) — 

1 . 


go to 

20 



else i f ( (i 

• eq 

. 5 )) 

then 

2 i ( j , i 

) — 

1 . 


go to 

20 



else i f ( (i 

•eq 

.6)) 

then 

2 i ( j , i 

>- 

1 . 


go to 

20 



else if ( (i 

•eq 

• 7)) 

then 

2 i ( j , i 

)- 

1 . 


go to 

20 



else i f ( (i 

• eq 

.8)) 

then 

2 i ( j . 

) — 

1 . 


go to 

20 



else if (( 

• eq 

• 9)) 

then 

2i (j.i 

) — 

1 . 


go to 

20 




else i f ( (i .eq . 10) .and . ( ( (j .ge. 127) .and . (j . 1 e. 129) ) .or . ( (j . ge. 149 ) - and 
6 (j . le . 150) ) ) ) then 
go to 25 

else i f ( i . eq . 10) then 
2 i ( j , i ) =- 1 . 

else i f ( (i .eq . 1 1) .and . ( ( (j .ge. 127) .and . (j . 1 e . 132) ) .or . ( (j . ge . 148 ) • and 
6 (j . le. 151) ) ) ) then 
go to 25 

else t f ( i . eq .11) then 
21 (j, 0 — 1. 

else i f ( (i .eq. 12) .and. ( ( (j .ge. 89 ) .and. (j . le.90) ) .or . ( (j .ge. 127) 

6 .and. (j . le. 133) ) .or . ( (j .ge. 147) - and. (j . le. 15 1) ) ) ) then 
go to 25 

else if(i.eq.l2) then 
2i (j , i ) ■- 1 . 

else i f ( (i .eq. 13) .and. ( ( (j .ge. 89 ) .and. (j . 1 e . 9 1) ) .or . ( (j .ge. 128 ) 

6. and. (j . le. 135) ) .or . ( (j .ge. 140) .and. (j . le. 141) ) .or . 

5 ( (j .ge. 143) .and. (j . le. 152) ) ) ) then 

go to 25 

else i f (i .eq. 13) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq. 14 ) .and. ( ( (j .ge. 89 ) - and. (j . le. 94 ) ) .or . ( (j .ge. 127 ) 

6 .and. (j . le. 138 ) ) -or . ( (j .ge. 1 39) .and. (j . 1 e. 153 ) ) ) ) then 

go to 25 

else if(i.eq.l4) then 
2 i ( j , i ) =“ 1 • 

else i f ( (i .eq. 15) .and. ( ( (j . ge.88) .and. (j . le.94) ) .or . ( (j .ge. 126 ) .and. 
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6 (j . le. 158) ) ) ) then 
go to 25 

else if (i .eq. 15 ) then 
2 i (j , i ) *- 1 . 

else i f ( (i .eq. 16) .and. ( ( (j .ge.88) .and. (j . le.95) ) .or . ( (j .ge. 1 16) .and. 

& (j . 1 e . 16 1) ) ) ) then 
go to 25 

else i f ( i . eq . 1 6) then 
z i (j , i ) — 1 . 

else i f ( (i .eq. 17) .and. ( ( (j .ge.88) .and. ( j . 1 e . 99) ) -or . ( (j .ge. 1 16) .and. 

6 (j . 1 e . 16 1) ) ) ) then 
go to 25 

else i f (i .eq. 17) then 
2 i (j . i ) — 1 • 

else i f ( (i .eq. 18) .and. ( ( (j .ge.88) - and . (j . le. 100) ) .or . ( (j .ge. 1 16) .and. 

& (j . 1 e . 162) ) ) ) then 
go to 25 

else i f ( i . eq .18) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 19) .and. ( ( (j .ge.88) .and. (j . 1 e. 100) ) .or . ( (j .ge. 1 17) .and. 

6 (j . le. 162) ) ) ) then 
go to 25 

else if (i .eq. 19) then 
2 i (j , i ) ■- 1 . 

else i f ( (i . eq .20) .and. ( ( (j .ge.88) .and . (j . 1 e. 102) ) .or . ( (j .ge. 1 17) - and . 

& (j . le. 164) ) ) ) then 
go to 25 

else if(i.eq.20) then 
2 i (j , i ) — 1 . 

else i f ( ( i . eq .21) .and. ( ( ( j . ge .81) .and. (j . 1 e . 82) ) .or. ( ( j .ge.86) .and. 

6 ( j . 1 e . 102) ) . or . ( (j . ge . 1 1 9) • and . ( j . 1 e . 1 65) ) ) ) then 
go to 25 

else i f (i .eq. 2 1) then 
2 i (j , i ) — 1 . 

else i f ( ( i . eq . 22) . and . ( ( (j . ge . 8 0 • and . ( j . 1 e . 83) ) . or . ( (j . ge . 85) • and . 

5 (j . le. 103 ) ) -or. ( (j .ge. 1 19) .and. (j . le. 166) ) ) ) then 

go to 25 

else i f ( i . eq .22) then 
z i (j , i ) =- 1 . 

else if ((i .eq.23) .and. ( ( (j .ge.81) .and. (j . le. 106) ) -or. ( (j .ge. 1 19 ) .and. 

6 (j . 1 e. 166) ) ) ) then 

go to 25 

else i f ( i . eq .23) then 

z i (j . i ) — 1 • 

else i f ( (i .eq.21*) .and. ( ( (j .ge.82) .and. (j . le. 106) ) -or. ( (j .ge. 1 19 ) .and. 

6 (j . le. 166) ) ) ) then 
go to 25 

else if(i.eq.21») then 
2 i (j . i ) *- 1 • 

else i f ( (i .eq .25) .and. ( ( (j .ge.83) .and. (j . le. 107 ) ) .or . ( (j .ge. 1 18) .and. 

Mj.1e.166)))) then 
go to 25 

else i f ( i . eq . 25) then 
zi (j,i) — 1. 

else if ((i .eq.26) .and. ( ( (j .ge.83) -and. (j . le. 107 ) ) -or. ( (j .ge. 1 18) .and. 

Mj.1e.166)))) then 
go to 25 

else if (i. eq.26) then 
2 i (j , i ) — 1 • 

else i f ( (i .eq.27) .and. ( ( (j .ge.83) -and. (j . le. 107) ) .or . ( (j .ge. 1 18) .and. 
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S(j.le.l68)))) then 
go to 25 

else if (i .eq.27) then 
z i (j , i ) — 1 . 

else i f ( (i .eq .28) .and. ( ( (j .ge.84) - and . (j . 1 e. 107) ) -or . ( (j .ge. 1 18) - and 
& (j . 1 e. 17 1 ) ) ) ) then 
go to 25 

else if (i .eq.28) then 
zi (j, i)=-l. 

else i f ( (i .eq .29) .and. ( ( ( j .ge.84) .and . (j . 1 e. 108) ) .or . ( (j .ge . 1 18) .and 
6 (j . le. 172 ) ) ) ) then 
go to 25 

else if(i.eq.29) then 
z i (j , i ) — 1 . 

else i f ( (i .eq . 30 ) .and. ( ( ( j .ge.84) .and . (j . 1 e. 108) ) .or . ( (j .ge. 1 1 1) .and 
6 (j . 1 e . 1 1 4) ) • or . ( ( j . ge . 1 1 6) . and . ( j . 1 e . 1 7 2) ) ) ) then 
go to 25 

else if(i.eq. 30 ) then 
z i (j , i ) — 1 . 

else i f ( (i .eq. 31 ) .and. (j .ge.83) -and. (j . le. 172) ) then 
go to 25 

else i f (i .eq.31) then 
zi (j, i) — 1. 

else i f ( (i .eq. 32 ) .and. (j .ge.83) .and. (j . le. 171) ) then 
go to 25 

else if (i .eq.32) then 
z i (j , i ) — 1 . 

else i f ( (i .eq . 33) -and . (j .ge.82) .and . (j . 1 e. 173) ) then 
go to 25 

else iHi.eq.33) then 
z i (j , i ) ■- 1 . 

else i f ( (i .eq .34) .and . (j .ge.82) .and . (j . 1 e. 174) ) then 
go to 25 

else if(i.eq.34) then 
z i (j , i ) — 1 . 

else i f ( (i .eq .35) -and . (j .ge.82) .and. (j . 1 e. 174) ) then 
go to 25 

else if(i.eq.35) then 
z i (j , i ) — 1 . 

else i f ( (i .eq. 36) -and. (j .ge.83) -and. (j . le. 174) ) then 
go to 25 

else i f ( i . eq . 36) then 
z i (j , i ) — 1 . 

else i f ( (i .eq.37) -and. (j .ge.85) .and. (j . le. 174) ) then 
go to 25 

else if (i .eq.37) then 
z i (j , i ) — 1 . 

else i f ( (i .eq. 38) .and. (j .ge.85) -and. (j . le. 174) ) then 
go to 25 

else i f ( i . eq . 38) then 
z i (j*. i ) »- 1 . 

else if ( (i .eq.39) -and. (j .ge.84) -and. (j . le. 174) ) then 
go to 25 

else i f (i .eq.39) then 
z i (j , i ) ■- 1 . 

else i f ( (i .eq. 40) .and. (j .ge.82) .and. (j . le. 173) ) then 
go to 25 

else if(i.eq.40) then 
z i (j , i ) — 1 . 

else i f ( (i .eq . 41 ) .and. (j .ge.79) .and . (j . 1 e. 173) ) then 
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go to 25 

else if(i.eq.41) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 42 ) .and. ( ( ( j . ge . 5 3) - and . (j . 1 e.54) ) .or . ( (j .ge.71) .and. 

& ( j . 1 e . 75) *) .or. ( (j . ge . 78) .and. (j . I e. 1 72 ) ) ) ) then 
go to 25 

else i f ( i . eq - 1 * 2 ) then 
2 i ( j , i ) =- 1 . 

else i f ( (i .eq. 43 ) - and . ( ( (j .ge. 53 ) - and. (j . 1 e. 55 ) ) -or . ( (j .ge.60) .and. 

6 (j . le.61) ) .or. ( (j .ge. 7 1 ) .and. (j . le. 172 ) ) ) ) then 
go to 25 

else i f ( I . eq . i» 3 ) then 
2 i (j , i ) — 1 . 

else i f ( (i . eq . 44 ) .and. (( (j .ge. 53 ) .and . ( j . 1 e . 57 ) ) -or. ( ( j .ge. 59 ) .and. 

6 (j .le. 172 )))) then 
go to 25 

else if(i.eq. 44 ) then 
2 i ( j , i ) ■- 1 . 

else if ((i .eq.l*5) .and. (j .ge. 53 ) .and. (j . le. 173) ) then 
go to 25 

else I f ( i . eq . 1*5) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq .46) -and . (j .ge.53) .and . (j . le. 174) ) then 
go to 25 

else if(i.eq.46) then 
2 i (j , i ) *- 1 . 

else i f ( (i .eq. 47) -and. (j .ge.53) -and . (j .! e. 174) ) then 
go to 25 

else if(i.eq.47) then 
2 i (j . i ) — 1 . 

else i f ( (i .eq.48) -and. (j .ge.55) .and . (j . 1 e. 174) ) then 
go to 25 

else (f(i.eq.48) then 
2 i ( j , i ) ■- 1 . 

else i f ( (i .eq.49) -and. (j .ge.58) -and . (j . I e. 174) ) then 
go to 25 

else if(i.eq.49) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq .50) .and . ( ( (j .ge .58) • and . (j . 1 e . 175) ) .or . ( (j . ge . 180) . and 

6 (j . le. 182) ) ) ) then 
go to 25 

else if(i.eq.50) then 
21 (j , i ) =- 1 . 

else i f ( ( i . eq .51) .and. ( ( (j .ge. 58 ) .and . (j . ie. 17b) ) .or . ( (j .ge. ISO) . 2 nd 

Mj.le.183)))) then 

go to 25 

else i f ( i . eq . 5 1 ) then 
2 i (j , i ) «- 1 . 

else if ( (i .eq.52) .and. (j .ge.58) .and. (j . le. 183) ) then 
go to 25 

else if (i. eq. 52 ) then 
2 i (j , i ) =- 1 . 

else if ( (i .eq.53) -and. (j .ge.57) -and. (j . le. 183) ) then 
go to 25 

else i f (i .eq.53) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq.54) .and . (j .ge.57) -and . (j . 1 e. 19 1) ) then 
go to 25 

else if (i .eq.54) then 
2 i (j , i) =-l . 
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else if ( (i .eq.55) .and. ( 
go to 25 

else if (i. eq.55) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq.56) .and. ( 
go to 25 

else if (i .eq.56) then 
z i (j , i ) =~ 1 . 

else i f ( (i .eq.57) «and. I 
go to 25 

else i f (i .eq .57) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq.58) -and. 
6 (j .le. 196) ) ) ) then 
go to 25 

else if (i. eq.58) then 
2 i (j,i)=-l. 

else if ( ( i .eq.59) -and. 
6 (j . le. 197 ) ) ) ) then 
go to 25 

else if (i .eq.59) then 
2 i (j , i ) »- 1 . 
else if ((i .eq.60) .and. 
go to 25 

else if (i .eq.60) then 
2 i (j , i ) — 1 . 
else i f ( (i .eq.61) .and. 
go to 25 

else if (i. eq.60 then 
2 i (j , i ) *- 1 . 

else if ((i .eq.62) .and. 
go to 25 

else if (i. eq.62) then 
2 i (j,i)=-l. 
else i f ( (i .eq.63) -and. 
6 (j . 1 e. 220) ) ) ) then 
go to 25 

else if (i. eq.63) then 
2 i (j , i ) =- 1 . 
else i f ( (i .eq.60 .and . 
6 (j . le.220 ) ) ) then 
go to 25 

else if(i.eq.64) then 
2 i (j , i ) ■- 1 • 
else i f ( (i .eq.65) -and 
6 (j . 1 e . 22 1) ) ) ) then 
go to 25 

else if(i. eq.65) then 
2 i (j,i) — 1. 
else i f ( (i .eq.66) .and 
go to 25 

else if(i. eq.66) then 
2 i (j , i ) *- 1 • 
else if ( (i .eq.67) -and 
go to 25 

else if (i .eq.67) then 
2 i (j , i ) *" 1 • 
else i f ( (i .eq .68) • and 
go to 25 

else i f (i . eq.68) then 


(j.ge.57) -and. (j.le. 192 )) then 


(j .ge.54) .and. (j . le. 195)) then 


(j.ge.52) .and. (j . 1 e . 196) ) then 


(((j.ge.37) - and. (j.le.39)) -or. ((j.ge.52) .and. 


(((j.ge.35) -and. (j.le.45)) -or. ((j.ge.47) -and, 


(j .ge.35) -and. (j . le. 199) ) then 


(j.ge.34) .and. (j . le.203)) then 


(j.ge.34) .and. (j.le.206)) then 


. (((j.ge.34) -and. (j.le. 207 )) -or. ((j.ge.219) -and. 


(((j.ge.33) .and. (j . le.208) ) -or. ((j.ge.218) -and, 


(((j.ge.33) .and. (j .le. 210 )) .or. ((j .ge.217) .and. 


(j.ge.32) .and. (j.le.222)) then 


(j .ge. 30 ) .and. (j . le.223) ) then 


(j .ge. 30 ) .and. (j . le.224) ) then 
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z i ( j , i ) =- 1 . 

else if ((i .eq.69) -and. (j .ge.29) .and. (j .le.226)) then 
go to 25 

else if (i .eq.69) then 
2i (j , i) — 1 • 

else if ((i .eq. 70 ) .and. (j .ge. 28) .and. (j . le.226)) then 
go to 25 

else if(i .eq. 70 ) then 
zi (j , i) =-l - 

else i f ( (i .eq. 71 ) .and. (j .ge. 27 ) .and. (j . le.226) ) then 
go to 25 

else if (i. eq.7l) then 
z i (j , i ) — 1 . 

else i f ( (i .eq. 72 ) .and . (j .ge. 25 ) -and . (j . le.226) ) then 
go to 25 

else i f (i .eq. 72 ) then 
z i ( j , i ) — 1 . 

else i f ( (i .eq .73) .and . (j .ge.23) -and . (j . 1 e . 226) ) then 
go to 25 

else i f ( i . eq .73) then 
z i (j , i ) »- 1 . 

else i f ( (i .eq.70 .and. (j .ge. 21) .and. (j . le.226) ) then 
go to 25 

else i f ( i . eq .74) then 
z i ( j , i ) — 1 . 

else if ((i .eq.75) .and. (j .ge. 19 ) .and. (j . le.226) ) then 
go to 25 

else if (i .eq.75) then 
z i ( j , i ) ■- 1 . 

else i f ( (i .eq .76) .and . tj .ge. 17) .and . (j . 1 e . 226) ) then 
go to 25 

else i f ( i - eq .76) then 
zi ( j , i ) *- 1 . 

else if ((i .eq.77) -and. (j.ge.15) .and- (j -le.226)) then 
go to 25 

else if (i. eq.77) then 
zi (j , i) — 1. 

else i f ( (i .eq .78) • and . (j .ge. 13) .and . (j . 1 e . 226) ) then 
go to 25 

else i f (i . eq.78) then 
z i (j , i ) =- 1 . 

else if ((i .eq.79) .and. (j .ge. 12) .and. (j . le.227)) then 
go to 25 

else if (i. eq.79) then 
zi (j , i) — 1. 

else if ((i .eq.80) .and. (j.ge. 11) .and. (j .le.228)) then 
go to 25 

else i f ( i . eq . 80) then 
zi ( j , i ) — 1 . 

else if ((i .eq.81) .and. (j .ge. 10) .and. (j . le.229)) then 
go to 25 

else if (i. eq.81) then 
z i (j , i ) — 1 . 

else if ( (i .eq.82) .and. (j .ge. 10) .and. (j . le.230) ) then 
go to 25 

else if (i. eq.82) then 
zi (j . i)=-l. 

else if ((i .eq. 83 ) -and. (j.ge.ll) .and. (j.le.231)) then 
go to 25 

else if (i. eq.83) then 
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2 i (j , i ) ■- 1 . 

else i f ( (i .eq.8l*) -and. (j .ge. 12) .and. (j . le.233) ) then 
go to 25 

else i f (i .eq.84) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq.85) *and. (j .ge. 13 ) .and. (j . 1 e.234) ) then 
go to 25 

else if(i.eq.85) then 
2 i (j , i) =-l. 

else i f ( (i .eq.86) .and . (j .ge. 11*) .and . (j . 1 e. 234) ) then 
go to 25 

else if(i.eq.86) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq.87) -and. (j .ge. 15) .and. (j . 1 e.235) ) then 
go to 25 

else if(i.eq.87) then 
2 i (j , i ) *- 1 . 

else if ( (i .eq.88) -and. (j .ge. 15) .and. (j . le.235) ) then 
go to 25 

else if (i .eq.88) then 
2 i (j , i ) — 1 . 

else i f ( (i . eq.89) .and . (j .ge. 16) .and. (j . 1 e.236) ) then 
go to 25 

else if (i .eq.89) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq.90) .and. (j .ge. 17) .and . (j . 1 e.236) ) then 
go to 25 

else if(i. eq.90) then 
2 i (j . • ) *- 1 • 

else i f ( (i .eq. 91 ) .and . (j .ge. 17 ) .and . (j . 1 e.238) ) then 
go to 25 

else if(i. eq.91) then 
2i(j,i) — 1. 

else i f ( (i .eq.92) .and . (j .ge. 18) .and. (j . 1 e. 238) ) then 
go to 25 

else i f ( i - eq.92) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq.93) .and. (j .ge. 19) .and. (j . 1 e. 238) ) then 
go to 25 

else if (i. eq.93) then 
2 i (j , i ) ■- 1 . 

else if ( (i .eq.94) .and. (j .ge.21) .and. (j . Ie.238) ) then 
go to 25 

else if(i.eq.94) then 
2 i (j . i ) ■- 1 • 

else i f ( (i..eq.95) -and. (j .ge.23) .and. (j . le.238) ) then 
go to 25 

else i f ( i . eq . 95) then 
2 i (j . i ) =- 1 • 

else i f ( (i .eq. 96) .and. (j .ge.23) -and. (j . le.238) ) then 
go to 25 

else i f ( i . eq . 96) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq. 97) -and. (j .ge. 21*) .and. (j . le.238) ) then 
go to 25 

else i f (i .eq. 97 ) then 
2 i (j , i ) ■- 1 . 

else i f ( (i .eq.98) -and. (j .ge.25) .and. (j . le. 239 ) ) then 
go to 25 

else if(i. eq.98) then 
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2 i (j , i ) «- 1 . 

else i f ( (i .eq. 99 ) .and . (j .ge . 30 ) . and . (j . 1 e . 21 * 0 ) ) then 
go to 25 

else if(i.eq. 99 ) then 
2 i (j , i) =~ 1 . 

else i f ( (i .eq. 100 ) .and. (j .ge. 35 ) .and . (j . 1 e. 21 * 0 ) ) then 
go to 25 

else if(i.eq.lOO) then 
2 i (j . i ) ■- 1 . 

else i f ( (i .eq. 101 ) .and . (j . ge. 1 * 0 ) .and . (j . 1 e. 21 * 0 ) ) then 
go to 25 

else i f ( i . eq . 101 ) then 
21 (j , i ) — 1 . 

else i f ( (i .eq. 102 ) .and . (j .ge. 1*5) .and . (j . 1 e. 239) ) then 
go to 25 

else if(i.eq.l 02 ) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 103 ) -and . (j .ge. 50 ) .and . (j . 1 e . 21 * 1 ) ) then 
go to 25 

else if(i.eq.l 03 ) then 
2 i (j , i ) ■- 1 . 

else i f ( (i .eq. 101 *) .and. (j .ge.67) .and. (j . 1 e. 21 * 3 ) ) then 
go to 25 

else i f (i .eq. 101 *) then 
2 i ( j , i ) — 1 . 

else i f ( (i .eq. 105 ) .and. (j .ge. 79 ) .and . (j . 1 e. 21 * 5 ) ) then 
go to 25 

else if(i.eq.lC 5 ) then 
2 i (j . i ) *- 1 • 

else i f ( (i .eq. 106) .and. (j .ge . 88 ) .and . (j . 1 e. 21*7) ) then 
go to 25 

else if(i.eq.l06) then 
zi (j , i ) ■“ 1 . 

else i f ( (i .eq . 107 ) .and . (j .ge . 95 ) .and . (j . 1 e . 25 1 ) ) then 
go to 25 

else if(i.eq.l 07 ) then 
2 i (j , i ) =- 1 . 

else i f ( (i .eq . 108) .and . (j . ge . 101 *) -and . (j . 1 e . 252 ) ) then 
go to 25 

else if(i.eq.l08) then 
2 i (j , i ) =- 1 . 

else if ( (i .eq. 109 ) .and. ( ( (j .ge. 106) .and. (j . le. 1 12 ) ) .or . ( (j .ge. 1 15) .and. 

6 (j . le. 1 17) ) -or. ( (j .ge. 120 ) .and. (j . le.253) ) ) ) then 
go to 25 

else if (i .eq. 109 ) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 1 10 ) .and. (j .ge. 125 ) • and . (j . 1 e . 251*) ) then 
go to 25 

else if(i.eq.llO) then 
2 i (j . i ) — 1 • 

else if ( (i .eq. Ill) .and. (j .ge. 127) .and. (j . le.255) ) then 
go to 25 

else i f ( i . eq . 111 ) then 
2 i (j , i ) *~ 1 . 

else i f ( (i .eq. 1 12 ) . and . (j .ge . 129) .and . (j . 1 e . 255) ) then 
go to 25 

else i f ( 1 . eq . 112 ) then 
2 i (j , i ) — 1 . 

else if ((i .eq. 113 ) .and. (j .ge. 131) -and. (j . le.255) ) then 
go to 25 
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else if(i.eq.ll3) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 1 14) .and. ( ( (j .ge. 135 ) .and. (j . 1 e. 138) ) .or . 
6. and. (j . le.256) ) ) ) then 
go to 25 

else if (i .eq. 1 14) then 
z i (j . i ) =- 1 . 

else i f ( (i .eq. 1 15) .and . (j . ge. 147) • and . (j . 1 e . 257) ) then 
go to 25 

else i f ( i . eq .11 5) then 
2 i (j , i ) ■- 1 . 

else i f ( (i .eq . 1 16) • and . ( ( (j . ge . 150) • and . (j . 1 e . 200) ) . or . 
6. and. (j . le. 257 ) ) ) ) then 
go to 25 

else if(i.eq.ll6) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq . 1 17) • and . ( ( (j . ge . 152) . and . (j . 1 e . 196) ) .or . 
6. and. (j . le. 257 ) )) ) then 
go to 25 

else i f ( I . eq .117) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 1 18) .and . ( ( (j . ge. 1-53) • and . (j . 1 e. 193) ) -of • 
&.and. (j . le.218) ) .or . ( (j .ge. 225) .and. (j . 1 e . 257) ) ) ) then 
go to 25 

else i f ( i . eq .118) then 
2 i (j , i ) ■- 1 . 

else i f ( (i .eq . 1 19) .and. ( ( (j .ge . 155) • and . (j . 1 e . 19 1 ) ) .or . 
6.and. (j . 1 e. 230 ) ) .or . ( (j .ge.247) .and. (j . 1 e.258) ) 

S.or. ( (j .ge.277) .and. (j . 1 e . 279) ) 

6. or. ((j.ge.281) -and. (j . 1 e.283) ) ) ) then 
• go to 25 

else i f ( i - eq . 119 ) then 
2 i (j , i ) *- 1 . 

else i f ( (i .eq . 120) .and . ( ( (j - ge. 158) . and . (j . 1 e . 189) ) -or . 
6. and. (j . 1 e.258)) .or. ( (j .ge.277) .and. (j . 1 e . 283) ) ) ) then 
go to 25 

else i f ( i . eq . 1 20) then 
2 i (j , i ) — 1 . 

else if((i.eq.l 21 ).and.(((j.ge.l 70 ) . and . (j . 1 e . 1 83) ) • or . 
&.and. (j . 1 e.258)) -or. ( (j .ge.277) .and. (j . 1 e. 283) ) ) ) then 
go to 25 

else i f ( i . eq .121) then 
2 i (j . i ) — 1 • 

else i f ( (i .eq. 122 ) .and. ( ( (j .ge. 239 ) .and . (j . 1 e.258) ) .or 

5. and. (j . le.283) ) ) ) then 

go to 25 

else i f ( i . eq .122) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 123) -and . ( ( ( j .ge. 240) . and . (j . 1 e . 258) ) -or 

6. and. (j . 1 e.283) ) ) ) then 

go to 25 

else ifCi.eq. 123 ) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 124) .and. ( ( (j .ge. 243) .and . (j . 1 e.259) ) -or 
6 .and . (j . 1 e .281) ) ) ) then 
go to 25 

else if(i.eq.l24) then 
2 i ( j . i ) — 1 . 

else i f ( (i .eq. 125 ) .and . ( ( (j .ge . 245 ) .and. (j . 1 e. 260) ) .or 
6. and. (j . le.280) ) ) ) then 


( (j .ge. 140) 


( (j .ge.210) 


((j . ge . 2 12) 


( ( j .ge.214) 


((j .ge.226) 


( (j .ge.237) 


((j .ge.238) 


. ((j.ge.275) 


. ( (j .ge.273) 


. ( (j .ge. 272) 


. ((j.ge.269) 


go to 25 

else if (i .eq.125) then 

2 i (j • i ) *“ 1 • x x 

else i f ( (i .eq. 126) .and. ( ( (j .ge.246) .and. (j . 1 e.264) ) .or . 
6. and. (j . le.279) ) ) ) then 
go to 25 

else i f (i .eq . 126) then 

zi (j . i) —1 . xx 

else i f ( ( i • eq .127) • and . (j .ge.251) .and. (j .le.276)) then 

go to 25 

else if(i.eq.l27) then 
2 i (j , i ) — 1 . 

else i f ( (i .eq. 128) .and. (j .ge.253) .and. (j . le.276) ) then 
go to 25 

else 1 f ( T . eq .128) then 
2 i (j , 1 ) ■- 1 . 

else i f ( (1 . eq . 1 29) • and . (j . ge . 254) * and . (j . 1 e . 276) ) then 
go to 25 

else if(i.eq.l29) then 
zi (j* i)— 1. 

else i f ( ( i . eq • 1 30) • and • (j • ge . 268) • and • (j. le.276)) then 
go to 25 


e.264) ) .or . ( (j .ge.267) 


else i f (i .eq . 130) 
zi (j . i) *-l • 
else i f ( (i .eq. 131) 
go to 25 

else i f (i .eq. 131) 
z i (j • i ) *- 1 • 
else i f (i .eq. 132) . 
zi.(j, i)*-l. 
go to 20 

else if (i .eq.133) 
z i (j • i ) *- 1 . 


(j .ge.273) -and. (j . le.275)) then 


go to 

20 



else i f ( 1 - 

eq. 

13»*) 

then 

z i ( j . i 

) — 

l. 


go to 

20 



else i f (i . 

eq. 

135) 

then 

z i ( j , i 

) — 

l. 


go to 

20 



else i f (i . 

eq. 

136) 

then 

z i ( j . i 

) — 

1. 


go to 

20 



else i f (i . 

.eq. 

137) 

then 

2 i ( j , i 

U- 

1. 


go to 

20 



else if (i 

.eq. 

.138) 

then 

2 i ( j . 

i>- 

• 1 . 


go to 

20 



else if(i 

.eq. 

.139) 

then 

2 i (j , 

0 - 

■ 1 . 


go to 

20 



else if(i 

.eq 

.HO) 

then 

21 ( j , 

i) 

-1. 


go to 

20 




conti nue 
conti nue 
conti nue 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

70 

60 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

140 

130 

c 


1040 

c 

c 

c 

c 

c 

c 

c 


*********************************************************************** 


this portion of the program looks for undulations which may have 
been created by the surface fitting subroutine, and imposes the 
minimum depth filter where any node in the random field with a 
value of less than or equal to 0.01 mm. is reassigned a value of 
0.0 mm 


******* **************** ** ***** ** ** * * ** * * ** * * * * ** * * * * * ' 


* * * * * * * * * * * * * * * 3 * * 


do 60 i = l ,nxi 
do 70 j=l,nyi 

i f (zi (i , j) .eq.-l .) then 
go to 70 

else if (zi (i , j) . le.0.01) then 
zi (i , j) =0.0 
end if 

conti nue 
conti nue 


** * ** ****** *3V* *3’c**** 3*? * * * * * ** * * * * * * * 


******* 


************** *** *** ** ***** 


this portion of the program averages the 4 node depth values 
at the corner of each finite area element in order to determine 
the depth of the that element 

********************3':*** ***** 3V* * 3V 3*? ** *** * ** * ;V 3*C * 3*C 3V 3*C * *3*C * * ** ******* 3*C * * *3V *3V* 


initialize counting variable k 


k=0 


do 130 j-1 ,ny i 1 
15=0 

do 140 1=1. nx i 1 

i f ( (z i (i , j) -eq.-l.) .or . (z i (i + 1 , j) .eq.-l.) .or . (z i ( i , j + 1) .eq.-l.) .or . 
& (z i (i + 1, j + 1) .eq.-l.)) then 
go to 140 
end i f 
k-k+1 

d (k) * (z i (i , j) +2 i (i + 1 , j) +2 i ( i , j + 1) +z i ( i + 1 , j + 1) ) /4 * 

continue 
cont i nue 

e=k 

print 1040, e*. 01 

format ( 'total area in the entire bas ? n* ' , f 9 . 2 , ' sq.km. ') 


***** 3’f*3 , C** 3V 3*C 3*C * #» ** ** * * * ** * * ** * * * * * ** 


: * * * * * 3’c * >"c * * * * * * 3*c 3*c3’c 'h it * * * * ****** * 3* s’: ** 


this portion of the program will sift through all the element 
depths and find the maximum value (truncated as an integer) 

*3V**3V********^f^******^^^***^*5'5^*****3V****3V*3V*****5V3*C*****3V3V**3V**3V*3V**3 , V** 
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do 150 i-l,k-l 
a (2) *d (i) 
a (3) «d (i + 1) 
i f (a (2) .gt.a (3) ) then 
a (4)*a (2) 

else if (a (3) .gt .a (2) ) then 
a (4) *a (3) 
end i f 

i f (a ( 4 ) .gt.a (1) ) then 
a(l)*a (4) 
end i f 

max«a (1) 
amax*max+l 
continue 


********************** ****************** 


***************************** 


sum the elements at particular integer depths and group them 
accordingly 

*********************************************************************** 

do 160 i*-2,max 
do 170 j-l,k 

i f ( (d (j) . 1 1.0.) .and. (i .eq.-2) ) then 
count (-2) “count (-2) +1 
else i f ( (d (j) .eq.O.) .and. (i .eq.-l) ) then 
count (-1) *count (-1) +1 

else if ( (d ( j ) .gt.O.) .and. (d (j ) .lt.1.) .and. (i .eq.O) .and; 

& (max. eq.O)) then 

count (0) *count (0) + 1 

A 1 $P I f ( (d ( j ) .gt.O.) .and. (d (j ) .lt.1.) .and. (i .eq.O)) then 
count (0) *count (0) +1 

else if ( (d (j) .ge. i) .and. (d (j) . 1 1 . (i + 1) ) ) then 

i f (i .eq.O) then 
go to 170 
end i f 

count (i) “count (i)+l 
And i f 

continue 

continue 

*********************************************************************** 


the following section determines the spatial distribution 
of total rainfall depth (fraction of total area wetted to a depth 
greater than or equal to) 


*********************************************************************** 


totcount*0 .0 
pr i nt, ' ' 

print, 'the following is the spatial distribution of total rainfall depth' 

print, ' ' 

print, ' ' 
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do 180 i*max+l, -2,-1 
if (i .eq.-2) then 
printlOSO, count (-2) 
else if (i .eq.-l) then 
pr i nt 10&0, count (-1) *.01 

else if ((count (0) .gt.0.) .and. (max.eq.0) .and. (i .eq.O)) then 
totcount=totcount+count (0) 
totcnt2 ( i ) -totcount 
pr i nt 1070, totcount* .0 1 

else i f ( (count (0) . gt .0.) .and. (i .eq.O) ) then 
totcount=totcount+count (0) 
totcnt2 (i ) =tot count 
pr i ntl 070 , tot count * .0 1 
else if (max.eq.0) then 
totcount=0.0 

to tent 2 (i ) “totcount 

else 

totcount-totcount+count (i) 
to tent 2 (i) = tot count 
print 1080, i , totcount* . 0 1 
end i f 

180 continue 
c 

c * * * * 5V * Vc * * * i: * Vc * * * * * * it 'k * s’c * * ft * * * * * * ft & ft ft * ft ft ft ft ft * * * * * ft * ft * ft ft ft ft ft ft * ft * ft ft * * ft * * * * * 

C 

c write the results to fi1e93 

c 

c *********************************************************************** 

c 

c 

e=k 

kk=amax+2 
wri te(93. 1130) kk 

wr i te (93# 1140) i year (1) , i month (1) , iday (1) 
do 190 i=-l,amax 
if (i .eq.-l) then 
wr i te (93* 1090 ) count (- 1) /e 
go to 190 

else i f ( i . eq .0) then 
wri te(93. 1110) totcnt2 (0) /e 
el se 

wr i te (93. 1 120) i , totcnt2 (i) /e 
end i f 

x(l + l)-i 

y ( i + 1) =totcnt2 (i ) /e 
190 cont i nue 
c 

1050 format ( 'there were ',f9*0,' neg. elements in the integration routine') 
1060 format ( 'total unwetted area (0 mm. ra i nf al 1) * f 9 .2 , ' sq.km.'/) 

1080 format('area wetted by at least ',i3»' mm. or more was ',f9*2, ' sq.km.') 

1070 format ('area wetted by more than 0 mm. was',f9*2,' sq.km.') 

1090 format('dry fract. total area (0 mm. ra i nf al 1 ) * ' , f 9 -3) 

1120 format ( 'fract . of area wetted by at least ',i3.' mm. or more was '* f 9 • 3) 

1110 format ( 'fract. of area wetted by more than 0 mm. was',f9.3) 

1130 format ( 'there are',i3,' lines in this file') 

1140 format (3 (i 2) ) 

1010 format ( 'storm day ', i 2, '/ ', i 2 , '/ ', i 2) 
c 

end 
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TABLE. FORTRAN 


c 
c 

c The purpose of this program is to create nicely formatted 

c storm day data table, 

c 

c This program was developed by Neil M. Fennessey at M.l.T. during 
c the course of his Master's Degree research about the Areal Distribution 
c of Rai nfal 1 
c 

c 

c 

d i mens i on amonth ( 6 ) 

dimension xarea ( 100 ) , ygamma ( 100 ) , iagl ( 100 ) , corr 1 ( 100 ) 
dimension wetf ret (- 1 : 200 ) 

c 

data (amonth (i) , i=l,5) / 'June ', 'July 'Aug 'Sept ', 'Oct '/ 
c 

c read in the results from stormday. fortran, date, moments, 

c spatial correlation and variance function curves 

c 

read ( 91 * 1 160 ) i year , i month, i day 

read ( 91 * 1 170 ) avedepth , vardepth, skwdpth 

do 10 i=l,31 

read ( 91 * 1180) lagl (i) ,corrl (i) , xarea (i) , y gamma (i) 

10 continue 

c 

1160 format ( 3 i 2 ) 

1170 format ( 3 (lx,f7-3) ) 

1180 format (f 5 - 2 , lx,f7-3. Ix,f 6 . 2 , lx,f6-3) 
c 

c read in the results of stormwet . f or tran (spatial distribution curves) 
c 

read ( 93 , 1130 ) kk 

read ( 93 * 1 11 * 0 ) iyear, i month ; idav 

do 30 i — l,kk -2 

i f (i .eq.-l) then 

read ( 93 * 1090 ) wetfrct(i) 

else if (i .eq. 0 ) then 

read ( 93 * 1270 ) wetf ret (i) 

else 

read ( 93 * 1120 ) i , wetf ret (i) 
end i f 

30 cont i nue 

i iday*iday 
i i year* 1900 +i year 

i i i«imonth-5 

1 5 * » year -20 
c 

c write the table to file 95 

c 

wr i te ( 95 * 1005 ) amonth (i i i) , i iday , i i year 

wr i te ( 95 * 1010 ) wetf ret (- 1 ) 

wr i te ( 95 * 1050 ) wetf ret ( 0 ) 

wr i te ( 95 * 1290 ) avedepth 

wr i te (95* 1280) vardepth 

wr i te (95* 1285) skwdpth 

write (95, 1055) 
write (95* 1060 ) 
write (95* 1070) 
write (95* 1220) 
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check to see is the cumulative wetted area is larger or smaller 
than the fixed number of observations of area correlation lag 


c 
c 
c 
c 

i f (kk.gt. 31 ) then 
k l=kk -2 
b=l 

else 

k 1*3 1 
b *2 
end i f 

do 40 i-l.kl 
c 

c cumulative wetted fraction is greater than 31 
c 

if ( (b.eq. 1) .and. (i . ie.31) ) then 

write (95 * 1230 ) i ,wetf ret (i) , 1 ag 1 ( i ) , cor r 1 (i ) . xarea (i ) .ygamma (i) 
else i f ( (b.eq. 1 ) .and. (i . gt.30 ) then 
wr i te ( 95 , 1240 ) i , wetf ret (i ) 
c 

c cumulative wetted fraction is less than 31 mm. 

c 

else if ( (b.eq. 2 ) .and. (i . 1 e. (kk- 2 ) ) ) then 

wr i te( 95 » 1230 ) i .wetf ret (i ) , 1 ag 1 ( i ) . cor r 1 ( i ) , xarea (i ) .ygamma (i) 
else 

wr i te ( 95 * 1250 ) lagl (i) , corr 1 (i) , xarea (i) , ygamma (i) 
end i f 

40 continue 

c 

c write a versian to file 02 for future analysis 
c 

wri te( 02 , 1370 ) n, i iyear 
wr i te ( 02 , 13 10 ) amonth (i i i ) , i i day , i i year 
wr i te ( 02 , 1320 ) avedepth ,var depth , skwdpth 
wr i te ( 02 , 1330 ) wetf ret (- 1 ) 
wr i te ( 02 , 1340 ) wetf ret ( 0 ) 
wr i te ( 02 , 1300 ) kk- 2 , k 1 
wr i te ( 02 , 1350 ) 
wr i te ( 02 , 1360 ) 
do 50 i * 1 ,k 1 
c 

c cumulative wetted fraction is greater than 31 mm . 
c 

if ( (b.eq. 1 ) .and. (i . Ie. 31 ) ) then 

wr i te ( 02 , 1230 ) i , wetf ret (i ) , 1 agl (i ) , corr 1 (i ) , xarea (i ) .ygamma (i ) 
else i f ( (b.eq. 1 ) .and. (i .gt .31) ) then 
write ( 02 , 1240 ) i ,wetfrct(i) 
c 

c cumulative wetted fraction is less than 31 mm. 

c 

else i f . ( (b.eq. 2 ) .and . (i . 1 e. (kk- 2 ) ) ) then 

wr i te( 02 , 1230 ) i , wetf ret (i) , 1 agl (i) , corr 1 (i) .xarea (i) .ygamma (i) 
else 

wr i te ( 02 , 1250 ) lagl (i) , corr 1 (i) .xarea (i) .ygamma (i) 
end i f 

50 continue 

c 

c file 02 format statements 

c 

1370 format ( ' there are storm days in this file for this year:'i4) 
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1360 format (7x, 'Y (mm.) \2x, 'Acw/Ac (Y>y) ',10x, 'v (km.) ',lx, 'rho(v) ',8x, 'A 
S(km.sq.) ',lx, 'Gamma (A) ') 

1350 format (3x, 'Cumul at ive Wetted F ract i on 5x, 'Spat i al Cor rel at i on ' , 5x , 

& 'Variance Function') 

1340 format(' Wetted Fraction of Total Basin Area: (Acw/Ac) = ' , f 5 ■ 3) 

1330 format(' Dry Fraction of Total Basin Area: (Acd/Ac) = ' , f5 • 3) 

1320 format ( ' point depth E (Y) * ',f 7 .3* ' Var (Y) = f 7 • 3* ' S.C. (Y) ■ f 7-3 ) 

1310 f ormat ( ' Storm Day ' * a4 » i 3 . » 5) 

1300 format (' there are ',i3*' wetted area curve pts, there are / , i 3 * 

S' total data points this day') 
c 

c f i 1 e95 format statements 
c 

1285 format (10x # 'Coef . of Skewness of Point Depth: S . C . (Y) =* ', f 7 . 3//) 

1280 format (10x, 'Var i ance of Point Depth (mm. sq.): Var (Y) * ' , f 7 . 3/) 

1290 format (10x, 'Expected Value of Point Depth (mm.): E (Y) * f 7 • 3/) 

1250 format(37x,f3-l,5x,f5.3,7x,f6.2,6x,f5.3) 

1240 format (7x, i 3 . 7x. f5 • 3) 

1230 format (7x # i3,7x.f5.3.15x,f3.1.5x.f5.3.7x f f6.2.6x.f5.3) 

1220 format (' 

£ 7) 

1070 format (6x, 'y (mm.) ; ,4x, 'Acw/Ac (Y>y) ', lOx, 'v (km.) ',2x, 'rho (v) ',6x, 'A 
S (km. sq .) ',2x, 'Gamma (A) 0 

1060 format (6x, 'of Total Storm Depth \8x, 'Spat i al Correlation ',5x, 

S 'Variance Function') 

1055 format(6x, 'Spatial Distribution') 

1050 format (9x, 'Wetted Fraction of Total Basin Area: (Acw/Ac) * ' , f 5 • 3//) 

1010 format (10x f 'Dry Fraction of Total Basin Area: (Acd/Ac) * f5* 3/) 

1005 format (25x, 'Storm Day \a4* >3. >5///) 

1090 format('dry fract. total area (0 mm. ra i nf a 1 1 ) = f 9 . 3) 

1120 f ormat ( 'fract . of area wetted by at least ',5 3*' mm. or more was ',f9*3) 

1270 format ( 'fract. of area wetted by more than 0 mm. was' t f9-3) 

1130 format ( 'there are',i3*' lines in this file') 

1140 format (3 (i 2)) 

print, 'please shift f i le02 to the bottom of f i 1 e ' , 1 5 
end 


189 


FUTURE. FORTRAN 


c 
c 

c the purpose of this program is read the stacked data the storm day 
c archive data files, arc70.data, arc71 .data, ... ,arc77 .data, 
c Data from a particular year may be accessed by this program 

c following suitable modification by the analyst. In its present 

c form, the data for an entire year is simply read into active 

c memory and nothing else, 
c 

c Prior to an execut i on, f or the particular year, arc70.data must be 
c placed in fileSO, arc71.data placed in fileSl, and so forth 
c 

c The data is tabulated by storm date and includes the expected value 
c of the point storm depth, variance of the point storm depth, the 

c fraction of the catchment area that is dry for that storm day, and 

c the fraction of the catchment area that is wetted (greater than 0.01 mm.) 

c The variance function values for different areas as well 

c as the correlation function values for different lags are 

c also included. ( area equals km. squared, lags are in kilometers) 

c The spatial distributin of wetted area curve values are also given, 

c They are defined as that percentage of the basin area wetted to a 

c depth greater than or equal to the correspond i ng depth (given in mm.) 
c 

c This program was developed by Neil M. Fennessey at M.l.T. during the 
c course of his Master's degree research about the Areal Distribution 

c of Rai nfal 1 


c i 

c 

c 

c Definition of Variables 

c 

c Storm Day Date 

c 


c iyear 

c i yar 

c i month 

c amonth 

c i day 

c i iday 

c 

c Moments 

c 

c avedepth E (Y) of the storm day random field (mm.) 

c vardepth VAR (Y) of the storm day random field (sq. mm.) 

c 

c Spatial Correlation 

c 

c lagl spatial lag distance (km.) 

c corrl spatial correlation at lagl 

c 

c Variance Function 

c 

c xarea area over which Y has been averaged (sq. k.m) 

c ygamma variance function gamma (area) at an area = xarea 

c 

c Spatial Distribution of Total Rainfall Depth 

c 

c dryarea fraction of the catchment area left dry during the 

c storm day precipitation event 

c wetarea fraction of the catchment area wetted during the 


storm day year 

storm day year 

storm day month 

storm day month 

storm day calendar date 

storm day calendar date 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


30 

20 

c 

c 

c 

c 

c 

c 

c 

c 

c 


wet 

tot 


S depth 
wetf ret 


storm day precipitation event 

number of discrete data points in the spatial distribution 
curve 

number of lines of discrete data for the spatial 

distribution curve, the spatial correlation 
curve, and the variance function curve 
( tot >= 31 ) 

depth (mm.) 

fraction of catchment area wetted to a depth greater than 
or equal to i depth 


dimension i month (70) , i year (70) , i day ( 70 ) , wet (70) , tot ( 70 ) , i yar (70) 
dimension wetarea ( 70 ) ,dryarea( 70 ) ,wetf ret (70,200) , idepth ( 70 , 200 ) 

real lagl 

data (amonth (i) , i-1,5) / 'June 'July ', 'Aug ', 'Sept ', 'Oct 7 

integer wet, tot 

common /f ut 1/xarea (70 , 3 D 
common /f ut2/ygamma (70, 31) 
common /fut3/lagl (70, 30 
common /f utl*/corr 1 (70 , 3 1) 

print,' enter last two digits of the year of interest:19 ' 

i nput, 1 1 

1 2=1 1-20 
1 = 12 

rewi nd (1) 

******************************************************************** 
Preset the common block variables equal to 2 ero 
******************************************************************** 
do 20 i- 1,70 

do 30 j-1,31 

xarea (i , j) =0.0 
ygamma (i , j) =0.0 
lagl (i , j) *0 
corrl (i , j)=0.0 
continue 
continue 

******************************************************************** 

check to see how many storm days are in this year's storm day archive 
data file 

******************************************************************** 
read (1 , 1370) n, i yr 
do 10 j=l,n 
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c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


******************************************************************** 

read entire contents of this year's data archive file 

******************************************************************** 

read (1 , 1310) amonth, iday (j) , iyar (j) 
i iday*iday (j) 
i year (j) *i yar (j) -1900 
? i i «i month (j) “5 
read (1 , 1320) avedepth.vardepth 
read (1 , 1330 ) dryarea (j) 
read (1 , 13 W) wetarea (j) 
read(l, 1 300) wet (j) ,tot(j) 
read (i, 1350 ) 
read (1,1360) 

kk*wet (j) 
k2«tot (j) 


******************************** ************************************ 

Determine if the total number of discrete values for this storm day's 
spatial distribution curve is less than or exceeds the 31 discrete 
values of the spatial correlation and variance functions (all three 
are written on the same line of the individual storm day record) 

******************************************************************** 


i f (kk .gt . 31 ) then 
k 1 = k 2 
b s l 

else 

k 1=3 1 
b=2 
end i f 

do 50 i =1 ,k 1 

******************************************************************** 

The number of discrete values in the spatial distribution curve is 
less than or equal to the 31 discrete values of the spatial correlation 
and variance function curves 

******************************************************************** 
if ( (b.eq.l) .and. (i . le.30 ) then 

read (1 , 1230) idepth (j , i) ,wetfrct (j , i) , lagl (j , i) ,corr 1 (j , i) ,xarea (j , i) 
6,ygamma (j , i) 

******************************************************************** 

The number of discrete values in the spatial distribution curve is 
greater than the 31 discrete values of the spatial correlation and 
variance function curves 

******************************************************************** 
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else i f ( (b.eq. 1) .and. (i .gt .31) ) then 
read (1 , 1240) i depth (j , i ) ,wetf ret (j , i ) 
c 

else if ( (b.eq .2) .and . (i . 1 e.kk) ) then 

read (1,1230) i depth (j,i) ,wetf ret (j , i ) , lagl (j , i) ,corrl (j.,i) ,xarea(j,i) 
S,y gamma (j , i) 

else if ( (b.eq. 2) .and. (i .gt.kk) ) then 

read ( 1 , 1250 ) 1 agl (j , i ) ,corr 1 (j , i ) ,xarea (j , i ) , y gamma ( j , i ) 
end i f 

50 continue 

c 

10 continue 

c 

c ***************************************** *************************** 

c 

c file format statements 

c 

C ******************************************************************** 

c 

1370 format(' there are ',i5,' storm days in this file for this year:'i4) 
1360 format (7x, 'Y (mm.) ',2x, 'Acw/Ac (Y>y) ',10x, V (km.) ', lx, ; rho (v) ',8x, 'A 
& (km. sq.) ', lx, 'Gamma (A) 0 

1350 format (3x, 'Cumulative Wetted F rac t i on ' , 5* . 'Spat i a 1 Correlation ',5*, 

& 'Var i ance Funct ion ') 

1340 format(' Wetted Fraction of Total Basin Area: (Acw/Ac) * ' , f 5 • 3) 

1330 formatf' Dry Fraction of Total Basin Area: (Acd/Ac) = ' , f 5 * 3) 

1320 format ( ' point depth E (Y) « \ f 7-3. ' Var (Y) « \ f 7-3) 

1310 format ( ' Storm Day \a4J3J5) 

1300 format ( ' there are ',i3,' wetted area curve pts, there are \i3. 

&' total data points this day') 
c 

1250 format (37x,f 3 - I*5x#f5*3t7x,f6*2,7x,f5*3) 

121*0 format (7x, i3*7x,f5*3) 

1230 format (7x, i 3* 7x, f 5» 3* 15* » f 3 - 1 »5*» f 5 • 3 *7x, f 6. 2* ?x, f 5* 3) 
c 

end 
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